RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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ite p21 98e 33:80:48 «| “SSS spOASSStRGwbee sacSosacie.reas1 2% <1) 


; 0001 O ! 

3 aig Version: *v04-000' 

: B82 i eeeeeeeeeeeeeeeeeeeeeeeededereeeeeeeeneeereneeeeeeeererereeeeeeeeeereeeerees 
; Ml * 
; O06 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY ® 
s 900 '‘® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
: Bene 8 ‘* ALL RIGHTS RESERVED. * 
ce . ® 
; 0010 0 '® rae ee is FURNISHED UNDER A LICENSE AND MAY BE ysee AND copieD * 
; 0011 O \® Y IN ACCORDANCE WITH THE FERnS OF reer hacen SE AND WITH THE ®* 
; B06 0 '® INCLUSION OF ARE ABOVE COPYRIGHT NOTICE. THIS SOFT ARE OR ANY OTHER * 
3 0135 0 '‘® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 00146 0 '® QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; Bel? 8 ed TRANSFERRED. * 
H i® e 
; 0017 0 '® phe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTIC ce * 
; 18 0 '® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: ith 8 i? CORPORATION. * 
J :* ® 
;s ei © '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIARILITY OF ITS * 
3 OOS 4 7 SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
2 . a 
>; 0024 Q '® * 
: one 8 “elena iain hitch 
: 0027 0 

: 0028 O '+¢ 

: 39 , 8 FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

: 0031 0 i DSRLIB.REQ requires in almost all Require Ad wt used by DSR and DSRPLUS. 

; 0032 0 ! It is used to build both DSRLIB.L-- and DPLLIB.L--, which are used (via 

s 055 @ ! a conditionalized LIBRARY statement) by ete. all modules in the DSR / 

; ted 4 DSRPLUS code. 

: 036 0 i The cenetared REQUIRE statements in the code occur in RNFERM. a which 

3 td . } requires MSGIXT.REQ, and in LP1.BLI, which requires RUNTAB.REQ 

; 4 8 : ENVIRONMENT: Transportable BLISS 

: 041 0 | AUTHOR: Keith Dawson CREATION DATE: March 1983 

; Goes 0 i MODIFIED BY: 

: 5024 0 i 008 REM00008 Ray Marshall  4=June-1984 

; 0046 Q : Added a Sy ross declaration to cause the expansion of the 

; Boek 8 “REQ. files 

: 0049 0 i 007 KAD00007 Keith Dawson 9-May-1983 

3 Bees 0 Remove support for .DX, .PX. 

: 005¢ 9 i 006 KAD00006 Keith Dawson 13-Apr-1983 

: B037 3 Added conditionals on CREFDS, GToKce. KEYWORD. 

: 0055 0 i 005 KAD00005 Keith Dawson _ 7=Apr-1983 

s Bees Added require files GTOKCC, KWIDEF Romitted by accident) 


004 


003 


002 


14 
15-sep-1984 07:4 VAX- 
1§seprtgse 33207349 vays 
KAD00004 Keith Dawson 6-Apr-19 


83 
Added require files for Grosecrereronc ing (KEYWORD, CREFDS), 
final-output modifications (PASS). 


REROOO03 Ron Randall 04-Apr-1983 
For DSRPLUS: Added topnote require files (TNREC, TOPNOT). 
KAD00002 Keith Dawson 17-Mar-1983 


Conditionalized 6 DSRPLUS-only Require files on the DSRPLUS 
variant, 


7 


i Bl jase V4.0-74 Page ; 
$DUA28: CRUNOFF .SRCJDSRLIB.REQ;1 (1 


COOOCoCCOooooo°ooo 


LIBRARY "NXPORT:XPORT'; 


RIF (RVARIANT/2) XTHEN 
IBRARY ‘REQ:RNODEFDPL'; : 


ELSE 
+ amet "REQ: RNODEFDSR'; : 


SWITCHES LIST (REQUIRE); 
; : 


The following files are used by 
REQUIRE "REQ:MAXIMA.REQ'; ' 


——d 


1$-4¢ 307188 $3:95 Sas bSDDASE STRONGER “SRCTOSRLIB.REG:1" 2%" (23 


Define /VARIANT macros 

Define /VARIANT macros 

This declaration causes the remaining files 
to be expanded in the Listing 
some of the Require files to come. 


Maximum values on some DSR / DSRPLUS parameters. 
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} Version: *v04-000' 


ies Baa. My 


355 


MARSESELSLSESS ICSI EIST TST TTT TTT TTP Tce eT cic c ceric icici iii titi iii iii iis: 


iw AND SHOULD NOT BE CONSTRUED AS A 


eRe eRe EE REA ARE RARER AAA AAA AAA EAA 
i] 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE ro AF OF SUCH Tht AND WITH THE 
INCLUSION OF THE ABOVE Sg lh ah ICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 
DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


i FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

i ABSTRACT: 
Maximum values of DSR / DSRPLUS parameters, including the 
maximum allowed ranges on numbers. 


i ENVIRONMENT : Transportable BLISS 


i AUTHOR: Keith Dawson 
i CREATION DATE: March 1983 
{ MODIFIED BY: 


002 KAD00002 Keith Dawson 21-Mar-1983 
Move xp_string_size from KWXYYP.REQ to MAXIMA.REQ. 


LITERAL ;Max imum, . 


i header-Level dep 
i number of /PAGE OE ANGE specifications. 
i depth of .REQUIRE commands. 
i number of simultaneous .SAVE commands. 
i number of tab ptege 
: jaternet length o titles and subtitles. 
i Length of a variable name. 
i number of sertabiea. 


max_levels = 6, 
max_page_ranges = 5, 
max_require = 10, 
max_save ~deptn s "20, 
max “tabs = 
max-title = eso, 
max_vr_length = 15, 
max_vr_names = 20; 


® 
® 
® 
® 
® 
® 
® 
® 
® 
® 
*® 
® 
*® 
® 
*® 
® 
® 
® 
® 
*® 


1 BLi 
55$DUA2 


=32 ¥ 
*TRONOFES she MAXIMA.REQ; 1 


Page 


oe 


(1) 


1Bose 3eb-198¢ $3: 9f: 38 VE35SSDUA2Bs CRONOFE SRC MAXIMA.REQ; ts va a3 


ee 


> RO141 LITERAL 

3 . 146 xp_string_size = 50; !Maximum Length of SORT= or APPEND= strings. 

> ROIGG MACRO 

; MROI1GS most_positive = 'Biggest positive number that can be represented. 

; MR re S (most _negative + 1) 
: RO148 f 

>; MROIG most negative = 'Most n number that can represented. 
; mRO1S0 , te P8EiStax*so00') xaLisssscex” 80000000") REL 1S$96 (40° 400008B00000 "5 

; RO} , 

3 noise most digits imum number of digits in a number. 

; wel ae ZBL 5$16(5) %BL1$S32(10) MBI ses6ct 

: ROIS : 
; MRO S? 5 most_digits_9 = !Maximum number of digits in a number of the form 99... 
3 MRO1 38 9 most_digits - 1) 

: RO160 0 ; | 
; RO161 CG : End of MAXIMA.REQ 


ees eS no 4 


$ep-1984 23:07:4 VAX-11 Bliss-32 V4.0-7 e 6 
13-48 ety 7 33:95:48 VES dSDUARE; : CRUNOFF sre DSRLIB.REQ;1 ree (2) 
; 0162 0 REQUIRE ‘REQ:B8POSIT.REQ'; ! Macro to return the bit position part of a field definition. 


| 15-Sep-1984 $3: 9 9 syst Bi igs s-32 V4.0-7 Page 7 


7:4 
15-Sep-19 9:4 55$DUA28: CRUNOF F . SRC BPOSIT.REQ;1 (1) 


CRO 
BPOSIT (S, C, X) = S%; 
: End of BPOSIT.REQ 


Sa SB OOD 
ARAN=OSS- 


; kRO163 O : 

3 RO 188 Version: *v04-000' 

: RO198 leuateetererencenennerererentenereerenttertrettertettnetentenenentnentnntnett 

3 ® ¥ 

3; kRO168 8 '® cor reyent (c) 1978, 1980, 1982, 1984 BY * 

3 RO169 '* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 

: Roiey 8 is ALL RIGHTS RESERVED. * 

a . ® 

$ ROIs 0 '‘® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND copier * 

> ROI7S 0 '® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE oe are THE * 

3 ROI?’ 8 'w INCLUSION OF THE ABOVE coe rn leur NOTICE. THIS SOFTWARE OR OTHER * 

3 RO175 iw COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVATLABLE TO ANY ®* 

; RO176 O 'w OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

: SEE 8 7 TRANSFERRED. * 

3 ‘® & 

; kRO179 O '® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

; kO180 O 't AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

3 dt } 8 :* CORPORATION. * 

o . ® 

; kO18S O '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

; RO1B4 O '® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

: ap er * * 
® ® 

: RO187 8 i eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeteeeeeeeteeeeeeeeeeeareeeeeeeeeeenees 

> RO} ! 

; RO1W89 O 

: ROI 0 'e+ 

3 sith 4 0 FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

: ROD i ABSTRACT: eg) | 

; ROI 0 i befines a macro to return the bit position part of a field definition. 

; kRO19S O i It is intended to be used with the fields defined in LSTBTS, but is 

; =6ROI 0 i generally applicable. 

; kRO197 O i 

: kRO198 O i ENVIRONMENT: Transportable BLISS 

; RO199 O i 

; kO200 O i AUTHOR: Rich Friday 

; kO201 O i 

; AST) 0 i CREATION DATE: 1978 

; its 0 i 

8 no be 0 MODIFIED BY: 

: noe 6 i 004 KAD00004 Keith Dawson 07-Mar-1983 

: RO i Global edit of all modules. Updated module names, idents, 

; 0 e copyright dates. Changed require files to BLISS library. 

- ie 

; 0 

3 0 


wv 
a 
a 
a 
— 
ee 
Ss 
uw 
a 
. 
@ 
oy 
o 
ax 
w 
a 
Ne 
be ened 
~a 
tw 
oe 
e 
wT 
> 
N 
~m 
4 


AX=11 BLi 
$255$DUA28: [RUNOFF 


Vv 


om 
ww 
~o 
own 

mu Ww 

om ios 

@ 

vwwr 

coo -- 
on 

rr Om 

ss ad 

aa ww 

wee -- 

wns 

om a 

» 

c 

=] 

o 

Vv 

ee 

. 

. 

. 

a 

a) 

ww 


REQUIRE ‘REQ:CLIST.REQ'; 
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Version: "v04-000' 


REPS SESISIESI SECIS TET TTS TTT TTT Terre retire icici citi iti titi it iit iii tit iit itiit 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
'® DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


® 

® 

® 

*® 

® 

ix THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
iw ONLY IN ACCORDANCE WITH THE T F SUCH LICENSE AND WITH THE ®* 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ix COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
is OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
ty 

ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
iw AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
i CORPORATION. ‘ 
* 

*® 

® 

Y 

® 

® 


!* DIGITAL ASSUMES NO RESPONSIB 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


DDDDDADADADAADAAAAAABDAAWAAAD 
pofofofolololololololololololololololololol[ole) 


Mrrororororopfpororororonnyd 
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'e+ 
} FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 


: 0 

0 

; 0 

; 0 

3 0 

$ 0 

; 0 

3 0 

3 0 

3 0 

; 0 

; 0 

; 0 

i RUGS 

; 0 

3 0 

; 0 

: 0 

; UR 0 ie 

; RO240 0 te 

3 Roses 8 LRA RRR RAERREEEREREAAER AAA ARRRRKERREEE 

; RO24 ! 

; kRO243 0 

; RO244 0 ! 

; kRO245 O 

3; RO246 0 ' 

3; RO247 O ' ABSTRACT: 

; RO248 O ! Definitions for counted lists. A counted List carries with it 

; RO249 O : its own description: current size, first and next character 

3 Rose0 8 } positions, and maximum size, 

3 ROS 26 ENVIRONMENT: Transportable BLISS 

: RO254 0 i AUTHOR: Rich Friday 

; RO255 O ! 

; RO256 O !' CREATION DATE: 1978 

; RO257 O ! 

; RO258 O ' MODIFIED BY: 

3 kRO259 O ! 

: RO260 0 : 003 KAD00003 Keith Dawson 07-Mar-1983 

; R026; O ; Global edit of all modules. Updated module names, idents, 

5 noees $ copyright dates. Changed require files to BLISS library. 

: ROS: leo 

3; RO265 

; RO r$] LITERAL 

3; RO26 CL_DEFAULT_SIZE = 15; 

; kRO268 

3; RO269 STRUCTURE 

3; kR0270 8 COUNTED_LISTCI;N=CL_DEFAULT size) = 

; aoe CZUPVAL®(N F 2) ' First two elements for control information | 

5 ROo78 (COUNTED_LIST + (1 + I)*%UPVAL); | 
| 


Seen Pe Se ee Se ee SH Se SH Se SH Se Be we 


tae ah: = Tend 


Sep-1984 VAX=11 Bliss-32 V4.0-7 Page 10 
13-te 3op7138e 83:90:09 “OSSee BASES tRewbee sacScuist.reas1 2% 19 


> RO274 

; RO275 LITERAL 

; RO A CL_MAX_ INDEX = -1, + Maximum allowable 'I' saved at start. 
3 Re of CL- INDEX = 0; ' Current 'I 

: RO0279 0 End of CLIST.REQ 


ae 
15 


IB-Sep-1984 25:07:49 WANSII BtigeHS2 v4n0-743 Page 11 
0280 0 REQUIRE "REG:LSTBTS.REQ'; ! BAR__, CND_., ISQ__, ® RIT__ 


1$-56 300-198" $3: gr:4 VAX-11 Bt igs s-32 V4.0-74 Page 12 


-Sep-19 _8255$DUA2 : (RUNOFF. SRCJLSTBTS.REQ;1 ( 
; kO281 O ! 3 
: Re 8 8 Version: *v04=-000' | . 
: ss Be 8 i wpeeeeeeeteeeeeeeeeeeeeeedereteeeeeeeeeeeeeeeerereeeeeererereeeetereeeeeeeeese : 
. 't * $ 
; RO286 0 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY + : 
; ROB? 0 ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . | ; 
s ~' Ms 8 - ALL RIGHTS RESERVED. * 5 
3 ; . 3 
; RO290 0 '® THIS SOFTWARE 2s FURNISHED UNDER A LICENSE AND MAY BE USED AND gt z | ; 
; kRO291 O 'w ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 3 
; RO292 O '® INCLUSION OF tHE ABOVE COPYRIGHT NOTICE. THIS S$ ARE OR ANY OTHER * : 
; RO29S O 's COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ; 
>; RO294 O 'e OTH PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 3 
; sig 944 8 te TRANSFERRED. * | $ 
: '@ 2 Ps 
; RO297 QO 'f phe a rahe IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * | : 
; RO298 O '® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 3 
; A944 : :* CORPORATION. * | ; 
3 ' * : 
; RO391 O '* CPIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * : * 
; ait 8 SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 2 
° ae os j 
> RO304 0 ie . 
: kRO30S5 O Lee AERA ERATE AAA AE RAAT ETAT ATTA eee 
3; RO306 O 
; RO307 O 
; kRO308 O '++ 
: sitses 8 FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
: RO311 0 i ABSTRACT: 
: RO312 0 i Defines BAR__, CND__, ISQ__, OSQ__, & RIT__. 
; RO313 0 i 
3 eoaie 4 ENVIRONMENT: Transportable BLISS 
: RO316 0 i AUTHOR: Rich Friday 
; kRO317 O ! 
; RO318 O ' CREATION DATE: 1978 
; kRO319 O ! 
; RO320 O ' MODIFIED BY: 
3 RO321 O ! 
: noass 0 ! 005 REMO0005 Ray Marshall 16-May-1984 
3 at i 0 } Added 0SQ__ to support outputting of the output Line number. 
: ROR 5 i 004 KAD00004 Keith Dawson 07-Mar-1983 
; RO $ ! Global edit of all a ons Updated module names, idents, 
3 4 i : copyright dates. Changed require files to BLISS library. 
BS Bin 
: RO331 MACRO 'TRUE if user said: 
; MRO’ 4 BAR. = 0,1 | /CHANGE 
: no $34 CMD = 1,1  ! /DEBUG:CONDITIONALS 
: nO 36 Iso.” = 2,1 ! /SEQUENCE 


Sep-1 1 Bliss-32 v4.0-7 e 13] 
1B-te 8eFr eee 33:8o eg eS BLS eStaonuee sacSesters.reas1 o%” «ti 
= 3,1! /RIGHT 

; MROS4O osa = 4,1! /DEC_INTERNAL=OUTPUT_LINE NUMBERS 


———_—_————_—_———_ 


“Sep-19 7:40 VAX=11 Bliss-32 v4.0-7 Page 14 
1B-te 8oF7138e $3:95:49 «— “ANsb LBS ssrRawbee sacSoseure.reas1 2%” «3s 


REQUIRE ‘REQ:NBITS.REQ'; ! More "'__"' bit definitions for a few flags 


> 0342 0 
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RO 
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138ep7 1980 33:95:75 “8Bsdbpbad 
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} Version: *v04-000' 


PEP ESE ESSE TEST TESTS TTT Te Teer Tic ect eTe cri reir ric i criti ti iti itiii ii itt 


'* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
:* ALL RIGHTS RESERVED. 


® 
® 
® 
® 
: ® 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
iw ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
i INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
i ER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
is TRANSFERRED. : 
® 

i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

ie CORPORATION. 
® 

® 

® 

® 

* 

® 


!* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


'‘e 
MASSES ESSSLSICS SEITE SESE TESTS TCT CTT TPT Tee C Tce e Tec e ccc eect eee r ise i ici iiit 
' 


Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 


le¢ 

i FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

i ABSTRACT: 

; Defines BLD__, UND__, BLDUND__. OVR__, IND__, & HYP__. 
! ENVIRONMENT: Transportable BLISS 

; AUTHOR: Rich Friday 

CREATION DATE: 1978 

: MODIFIED BY: 

004 KAD00004 Keith Dawson 07-Mar-1983 
i 

! 

i 


MACRO 
BLD, = 0,1 ! Bolding bit. 
UND_ = 1,1 ! Underlining bit. 
esud._ = 0,2 ! Bolding and underlining together. 
ove. = 2,1 ! Qverstrike bit. 


IND = 3,1  ! Indexing bit. 


Pp 
CRUNOFF .SRCJNBITS.REQ;1 


130 30571382 $3: 9f 13 "335 $00 SDUA ADBSTRONOFE SRC NBITS.REQ;1 et d§ 


; 8 i, 
3 nocot HYP = 4,1 ! Hyphenation bit. 
; End of NBITS.REQ 


REQUIRE ‘REQ:PAGEN,REQ'; 


SCT Lace 


be 


and PAGE_DEFINITION macros 


Sep-1 
Sep-1 


98 92:50:48 


V3353 
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$DUA28 
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FACILITY: 
i ABSTRACT 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE iS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH Tit is AND WITH THE 
INCLUSION OF THe ABOVE cor rR cyt NOTICE. FHIS SOFTWARE OR ANY OTHER 
F MAY E PROVIDED OR OTHERWISE MADE RAVATLABLE TO ANY 
She ereRneee NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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SHOULD NOT BE CONSTRUED AS A COMM 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


O CHANGE WITHOUT 


T NOTICE 
MENT BY DIGITAL EQUIPMENT 


CT 
IT 


Lee RRR EE ARATE TE TERRE AARAEReee ee ee 


DSR (Digital Standard RUNOFF) / DSRPLUS 


A page number carries with it not only its current value, but also 
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codes as to how those values are to be displayed when they are finally 


puter It was decided to do it this way rather than have a separ 
table so that the program TCX would have less trouble. 


i ENVIRONMENT: Transportable BLISS 
i AUTHOR: Rich Friday 
i CREATION DATE: 1978 


i MODIFIED BY: 


004 KAn00004 Keith Dawson 07-Mar-1983 
*.obal edit of all modules. Updated module names, idents, 
copyright A Aw Changed require files to BLISS library. 


LITERAL 
page_sct_size = 4; 
LITERAL i Type of section: 
sct_chapt a apter section. 
sct_index = ¢: ' Index section, 
= 5; ' Appendix section, 


sct_append 


ate 
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LITERAL 
sct_low = 1, ' Lowest section type key. 
sct_high = 3; ! Highest section type key. 
MACRO 
sct_typ = 0, 0, 4, 8 %, |! Section Type (zero if none). 
Sct paged = 8° 4 4 %, ! Display code for page number. 
sct-sub page = 0, XBPVAL/2, XBPVAL/2, 6 %, | Subpage, if any (zero if none). 
sct_number = 1, 0, %BPVAL, %, | Type of section number. 
s¢t_page = 2, 0, %BPVAL, %, |! Page number. 
sct_su pg_d = 3, 0, 4, %, ! Display code for subpages. 
sct_chapt.d = 35, 4, 4, %, | Display code for chapters. 
sct_appen.d = 3, 8 4, %, ! Display code for appendices. 
sct_index.d = 3, 12, 4, 0 %; ! Display code indexes. 
MACRO 
sct_run_page = 3, X%BPVAL/2, %BPVAL/2, 0 %; ! Running page numter. 
CRO 
page_definition = BLOCK Cpage_sct_size] %; 


End of PAGEN.REQ 
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0486 REQUIRE ‘REQ:ARECCC.REQ'; : AREC completion codes. 
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FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 


ABSTRACT: 
Completion codes returned by AREC. 


i 

i 

i 

i 

i 

ENVIRONMENT: Transportable BLISS 
AUTHOR: Rich Friday 
CREATION DATE: 1978 
MODIFIED BY: 

002 KAD00002 Keith Dawson 07-Mar-1983 
& 

ie 


Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 


LITERAL 
END_OF_STRING = 1, ! The uneaten string has been exhausted. 
CF _BREAK = 2, ! Special form of the .BREAK command. 
CF_CF = 3, ! Two adjacent <CONTROL flag>s. 
CF_COMMENT = 4, !' Special form of comment (.;). 


CF_LETTER = 5, ! A <CONTROL flag> followed by a letter. 
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! <ENDFOOTNOTE flag>. 
! A space or tab. 

! A semicolon (';'). 


! <CONTROL flag> followed by something else. 
! None of the other cases. 


! Number of completion codes returned by AREC. 


End of ARECCC.REQ 
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ATABLE entry codes. 


1 
1 


REQUIRE ‘REQ:ATCODE.REQ'; 
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++ 
FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 


ABSTRACT: 
Names for the actions associated with characters in the action table. 


ENVIRONMENT: Transportable BLISS 


AUTHOR: Rich Friday 
CREATION DATE: 1978 
MODI IED BY: 
004 REM00004 Marshall 17-November-1983 
Added macro for aerinies the size and type of ATABLE. Also 


defined ATABLE_LENGTH for use where it’s length is involved 
in other calculations. 


003 REMO00003 Marshall 7-November-1983 
Added A_U_ALPHA ¥ _L_ALPHA as part of the added support for 
DEC nattinational” character set. 


002 KAD00002 Keith Dawson 07-Mar-1983 
Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 
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LITERAL ' TRUE if the character is... 
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: (RUNOFF. SRC JATCODE .REQ; ° 
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4 
2 ~$255$DUAZ28 : CRUNOFF ..SRCJATCODE.REQ; 1 ) 


; RO617 A_SPACE = 01, $! a space, 

» R06) A_TAB = ¢° ! a tab, 

; R061 A_FLAG =Q5, !a flag 

: aye A_CONTROL = 04, ! an ASCEI control character, 

; RO621 A_LU_LETTER = 05, ! an upper-case letter, 

> ROO ¢ A_L_LETTER = g. ! a lower-case letter, 

3 Rye A_DIGIT =07, ‘a digit 

3 RO624 A-INT_ESC = 08, | a RUNOFF internal escape character (RINTES), 
> R0625 A_PUNTT = 09, ! a punctuation mark; 

; «ROO § A_OTHER = 10, | ,..0r anything else not covered above. 
; ROO 0 A_U_ALPHA = 11, ! Uppercase multinational character 

; nee 3 8 A_L_ALPHA = 12; ! Lowercase multinational character 

; RO6S0 O LITERAL 

: aoe 1 8 ACTION_COUNT = 12; ! Number of actions 

; ROG : 0 LITERAL 

3 aoe r 3 atable_length = 256; ! Number of cells in ATABLE 

; RO636 0 MACRO 

; MRO637 0 atable definition = 

; RO638 0 VECTOR Catable_length, BYTEI%; 
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! Completion codes for routines in ATTRIB 


REQUIRE "REQ:BOOL REQ"; ! TRUE & FALSE Literals (only) 
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* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
* ALL RIGHTS RESERVED. 


* THIS SOFTWARE + FURNISHED es A LICENSE AND MAY BE USED AND porter 
* ONLY IN ACCORDANCE ~ Ye THE TERMS OF SUCH LICENSE AND - a M4 


N 
* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERW 
* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF 
* TRANSFERRED. 


* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
. rn A 5 NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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LITERAL 
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+ 
FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 


ABSTRACT 
Definitions of Boolean items TRUE and FALSE. 


ENVIRONMENT: Transportable BLISS 
AUTHOR: . Rich Friday 
CREATION DATE: 1978 
MODIFIED BY: 
002 KAD00002 Keith Dawson 07-Mar-1983 


Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 


FALSE 
End of BOOL.REQ 
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$DUA2 : CRUNOFF sre BOOL .REQ;1 
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HEREOIIEE 33:00:40 VASSILSBLSREE RZ Ht 05248 oom geass? SP 
; 0697 0 REQUIRE 'REQ:BRNRTY.REQ'; ! ,BRN-format binary file record def's. 


‘i “11 Bliss-32 v4.0-74 
1$-te 90F7138e 52:40:50  “SSSSEDGASBSCRGNUER SACSBRNRTY.REQ:1 


:  R0699 | Version: 'v04=000' 

: Reree a et ee ee ee 
+ R070 it ; 
: i T (c) 1978, 1980, 1982, 1984 B 

: RO TOL 8 is DIGITAL’ EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. : 
: R705 : ie ALL RIGHTS RESERV ‘ 
- . it : 

: FURNISHED UNDER A LICENSE AND MAY BE USED AND co! 1D . 
: R070 is ue In ACCORDS iS 4 WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
BS Ei Blatter ath SPrRier IPUCh dE AEN MY ATM 
c i 

: ROT 0 is OTHER PERSGHe NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ° 
: RO? 2 ie TRANSFERRED. ‘ 
“4 R :* 

: H OFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
: ROvIs § ie AND TNHOULD ROT. BE TONS TRUED AS A COMMITMENT BY DIGITAL EQUIPMENT e 
: RO716 ; ie CORPORATION. ‘ 
: RO it . 
: i ES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

: ROoI9 5 i BO TUARE ON EAWIPRERT WHICH IS NOT SUPPLIED BY DIGITAL. : 
: RO720 0 ie : 
: tee 8 RE a RecA eB i TLE SUE avo «Re CNTR OMIM ERT T 
: ROrse 0 ! 

: RO724 0 ms 

: nO726 0 ; FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

; i ABSTRACT: 

: nOr29 0 tpg ere RuNoff file record type definitions 

: ROS 9 ; ENVIRONMENT: Transportable BLISS 

: ROS 0 AUTHOR: J.P. Kellerman 

: RO? 5 0 CREATION DATE: January 1982 

: R073? 0 . MODIFIED BY: 

y- i -Mar-1983 

s RO739 O ! 003 AD00003 Keith Dawson 07-Mar 

: ! rs edit of all modules. Updated module names, idents, 

; nora 0 Global ed dates. Changed require files to BLISS library. 

: RO743 0 ine 

: Roms 6 

: RO74 i File Identification Record Group 

Be 

: RO74 LITERAL ! 

: =- ! Identifies file as .BRN format 

: Ropes 8 BRN TENT = }. ! BRN format revisior. level 

: R075 INDEX FORMAT = 2 ! Index record group format revision level 

: RO7S 6 TOC_FORMAT = 3, ! Table of contents record group format revision Lovet 
: RO754 0 CROSSREF _F ORMAT = 1; ! Cross reference record group format revision leve 


Sook Lipa: eas Srna mbaeat ar Moke END 


row 
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; kO755 O 

; RO? § 0 : 

3 Ree 6 } Record Group Header 

; kRO759 ; A record group header identifies the following record group. 

; kO760 0 ; This allows a ele program to skip record groups pertaining 

3 Id 8 to other programs without having to know their structure. 

: Rores 0 ; 

; RO764 0 LITERAL 

; kRO765 BRN_INDEX = 1, ! Identifies index record groups 

; RO?76 BRN_CONTENTS = ! Identifies table of contents record groups 
; RO76 BRN_CROSSREF = 5; ! Identifies cross reference record groups 
; kRO768 0 

; RO769 O : 

; kO770 O ! Cross Reference Record groups 

; kRO771 O ; 

; kRO772 O LITERAL 

; kO773 O NEW CROSSREF = 1 ! Identification record group 

: norte 4 CROSSREF _REFERENCEPOINT = 2;! Reference point record group 

; kRO776 0 : End of BRNRTY.REQ 
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3; 777 06 REQUIRE ‘REQ:CLHCC.REQ'; ! CLH_... status return codes 
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; kO778 O ! 

; Ror 0 Version: *v04-000' 

: nora 0 i weeeeereeeeeeeeeeeeeeeeeeeeeeeeeeeeeneneeeeeeeeeeeeeererereeeeeeeeeeeeenenee 
; =RO 'e 

; RO? § 0 'w COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
; kRO784 0 '‘® DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 
: nore 8 ~ ALL RIGHTS RESERVED. . 
: RO787? 0 ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND D OPTED * 
; kO788 'w ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
; kO789 '® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; kO790 '* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; kO791 O '® QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 fe S bs TRANSFERRED, : 
2 Hil 

; kRO794 O '® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; kO795 O '‘w AND SHOULD NOY BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 sg 8 * CORPORATION. : 
. .@ 

; kRO798 O '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 344 ° SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
2 Mid 

; kRO801 O 'e * 
: eit 0 SRR RRR AA ARERR EAA AREA AAA AAA 
; kROB0S O ! 

; ROB04 O 

; kROB0S O ‘+ 

3 apes 8 FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

: ROB0B 0 i ABSTRACT: 

3 ss 4 8 Condition codes returned by CLH. 

: R081] 9 ENVIRONMENT: Transportable BLISS 

: ROB13 0 i AUTHOR: Rich Friday 

; ROBI4 O i 

; ROB15 O i CREATION DATE: 1978 

; ROBI16 O i 

; ROBI17 O i MODIFIED BY: 

; ROB18 O i 

; ROBI19 O i 002 KAD00002 Keith Dawson 07-Mar-1983 

; ROB20 O i Global edit of all modules. Updated module names, idents, 

3 noe 1 0 - copyright dates. Changed require files to BLISS library. 

: ROB 5 i- 

3; ROB24 

; RO825 LITERAL 

; noe § CLH_NORMAL = 01, ! Normal for all requests. 

: ROB 8 CLH_CANT_OPEN = 02, ! For bad CLH_OPEN_INPUT/OUTPUT. 

; ROB CLH_END_FILE = 02, ! End of file for CLH_READ_INPUT. 

; RO § CLH_CANT_READ = 03, ! Bad CLH_READ_INPUT. 

: ROB CLH_TOO_LONG = 04, ! Record too long on CLH_READ_INPUT. 
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CLH_NO_SPACE = 05;  ! No memory available. 


LITERAL 
CLH_CC_COUNT = 05; ! Number of condition codes defined. 


CLHCC.REQ 


mm 
3S 
a 
o 
~ 


$ep-1984 23:07:4 1 Bliss-32 V4.0-74 Page 34 
i$-te 3e0n oka 33:05:29 VES SSDUAS 5: (RUNOFF «SRC DSRLIB.REQ;1 . 2) 
; 0842 0 REQUIRE ‘REQ:CLHOPS.REQ'; ! CLHL... operation codes 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY . 
'* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. ® 
hs ALL RIGHTS RESERVED. . 
it THIS SOF TWARE 1s FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
'® NLY IN Ae NCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
'e ON tT USION THE ABOVE Spl kad gl E THIS SOFTWARE OR ANY OTHER * 
it COPIES | PHEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
> ORANISFERRED. * 
'® * 
\® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
‘®t AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
is CORPORATION. ; 
it DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS ® 
i. SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 3 
it e 
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'++ 
! FACILI 


{ AUTHOR: 
CREATI 
; | MODIFI 


LITERAL 


TY: DSR (Digital Standard RUNOFF) / DSRPLUS 


i ABSTRACT 


Definition of operations that can be performed by CLH. 


i ENVIRONMENT: Transportable BLISS 


Rich Friday 

ON DATE: 1978 

ED BY: 

006 KAD00006 Keith Dawson 07-Mar-1983 
Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 


_— pr iaeey input file. 

ppen output 

Close current input file. 

Close output file. 

Read a record from current input file 
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Get back previous wie Nt 


Write a record to output file, add CRLF. 
Save current input-file status on stack. 
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Ligse -32 v4.0-74 
TRUNOFF. SRC JCLHOPS.REQ;1 


Open a nested file (. REQUIRE E Pete Sspect* 5. 


Page 35 


(1) 
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; OR CLH_CLOSE_REQ = 10, ! Close the Pig a ge file. 

; OR CLH_OUT_NOCRLF = 11, ! Write a record os, add CRLF. 
, 8 CLH_ CLOSE pet OUT = 12, ! Close and delete output ile. 

; . CLH_OPEN_IN = 15;  ! Open initialization file. 

: 0905 LITERAL 

2 M's CLH_OPS_COUNT = 13; 

; OR 

; RO908 0 : End of CLHOPS.REQ 


1 | 
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1 ~$00-1 382 33:05:28 $25 SDBAIESLRONOFE SRCSDSRLIG.REQ; 1 she 3} 
REQUIRE "REQ: CONVRT.REQ'; ! TCONVRT_... def’s (string conversion codes) 
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seth lg! (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE 4 FURNISHED UNDER A LICENSE AND MAY BE USED AND so A 
ONLY IN emi ANCE WITH THE TERMS OF SUCH Tat SE AND WITH THE 
INCLUSION 0 THe ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 

COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
Dh a NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CoRPOnaT itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELJABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


CILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

STRACT 
Literate defining names for how to do conversions from binary to the 
appropriate string type. 
It's not possible to have a display code poreer than 15 without 
changing the data structures defined in PAGEN.REQ. 

HER NOTES: 


If the definitions of the literals defined here change (except for 
additions), look at DSPPAG to be sure nothing has been broken. 


i ENVIRONMENT: Transportable BLISS 


i AUTHOR: Rich Friday 
i CREATION DATE: 1978 
i MODIFIED BY: 
i 002 KAD00002 Keith Dawson 07-Mar-1983 
Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS (library. 
LITERAL 


TCONVRT_DEC_NOZ = 0, 
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$DUA2B : CRUNOFF . Ske CONVRT.REQ; ‘e 


'Convert to decimal, no leading zeros. 


m 
= 
~ 
mn 


TCONVRT_DEC_ZER 
TCONVRT LET _UPP 
TCONVRT“LET~LOW 
TCONVRT“LET“MIX 
TCONVRT~ROM~UPP 
TCONVRT-ROM-LOW 
TCONVRT~ROM-M1X 
TCONVRT “OCT -NOZ 
TCONVRT “HE X~NO 
RAL 

TCONVRT_LOW 
TCONVRT "HIGH 


nunnHnnHhHHan 
ees ee eseeeees 


wo OONOUS wr 


End of CONVRT.REQ 


Sep-1 
ih-se Sep-1 


‘Convert t 
‘Convert 
'Convert 
‘Convert 
'Convert 
‘Convert 
'Convert 
'Convert 
'Convert 


jLowest total conversion code. 
‘Highest total conversion code. 


$e 
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o decimal, leading zeros. 

letters, all yoversceee. 

letters, all sover=cage 

letters, tapiter ze first one. 

roman numerals, all yopermeeee. 

roman numerals, all soverne 

roman numerals, capitalize first letter. 
octal, no Leading zeros. 

hex, no leading zeros. 
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RIF DSRPLUS ZTHEN 
an REQ: CREFDS.REQ'; ! Cross-referencing data structures 


9 
Hd REQUIRE ‘REQ:DIGIT.REQ’; ! Macro to test if a character is a digit 


| iis ats 7 $3; 8: 3 MBBS SSDUADES CRONOFF SRC DIGIT.REQ;1 — ( 


d 


> 
a) 


Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 


MACRO 
DIGIT(KHAR) = 
(KHAR a ZC'O" and KHAR LEQ %C'9') 


ess 
oo 


: End of DIGIT.REQ 


; «ROD ‘ 3 
; ~ 9 Version: *¥04-000' : 
: R 23) WETTITILILILLLILI LLL LLL LLL LLL LLL iiiiiiie : 
; @ 'e © 3 
; OR é ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY . ; 
: OR ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . F 
; RO995 fe ALL RIGHTS RESERVED. . : 
: R099 ie THIS SOFTWARE, Is FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED . F 
: RO99 ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* ; 
; R099 ie INCLUSION OF THe ABOVE COPYRIGHT NOTICE. THIS SOFT WARE OR ANY OTHER * ; 
> R1000 ie COPIES THEREOF may NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ; 
> R1001 ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ; 
r Rigas :* TRANSFERRED. “ : 
_ '« $ 
> R1004 ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
+ R1005 ie AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ; 
§ bh '® CORPORATION. * 3 
; kR1007 O 'e w 3 
+ R1008 ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ; 
> R1009 ie SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
i RON Oe : 
: mils PITITITITILLLILLI LLL LLL LLL LiL LiL titiiitiiiiiiiiiii itis : 
3; R101 0 ! 3 
eo : 
: R1016 9 | FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS ; 
: R1018 0 i ABSTRACT: : 
; aie Macro to test if a character is a digit. : 
i 1081 | ENVIRONMENT: — Transportable BLISS ; 
: a § AUTHOR: Rich Friday : 
: Ri0 5 CREATION DATE: 1978 ; 
; R10 ; MODIFIED BY: ; 
i R1089 002 —_ kap00002 Keith Dawson 07-Mar-1983 3 
: R19 1 0 i : 
; (CRI ; i : 
; R10 in Py 
; =6R10 3 
: no 5 ; 
; MRI 3 
3; MRI | 3 
: =6©R1 3 
3) (ORI : 
; RI : 

: 
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ic-memory management definition 
itions for the Entity Counter/Caption Area 


3 100) 8 1! REQUIRE ‘REQ: DMDEFS. REQ’; ! Dynam 
; =: 1042 REQUIRE 'REQ:ECC.REQ'; : Defin 


g | 
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1bose 30071 38e 33:95 VS OSSSDUAZRSCRONOFF SRcSecc.Rea;1 89° (43 


Version: *v04-000' 


OPES ESISI SETI TT TTT P Tree creer eect icici rir iii i iit ii iii iiiiii. 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


'* THIS ithe BS. A gst ae UNDER A LICENSE AND MAY BE USED AND cortee 
:* ONLY IN aceon ANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
:* INCLUSION 0 OTHE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY “ BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
!* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 


Globel edit of all bo pay Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 


060 '® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
bes i: CORPORAT ION. 
We ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILI7Y OF ITS 
se) SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
oe8 PTITITITITITILILILILL LILI LL LLL TLL TLL ii Tiiiiiiiiiiiiiiitiiiiiii 
' 
069 
070 'e¢ 
18 FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
O78 i ABSTRACT 
Ore Definitions for the ECC (Entity Counter/Caption area). 
678 ENVIRONMENT: Transportable BLISS 
O78 AUTHOR : Keith Dawson 
pay CREATION DATE: 1982 
83 MODIFIED BY: 
084 i 004 KFA00004 Ken Alden 07-Jul-1983 
085 Made the counter into a full integer. 
003 KAD00003 Keith Dawson 07-Mar-1983 
& 
ie 


SFIELD ECC_FIELDS = 
ECCS$V_OPTIONS = CSSHORT_INTEGER], 
SOVERLAY (ECCS$V_OPTIONS) 
ECC$V_BOLD = ($81T), ‘Make entity caption bold. 


Be Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Ge Se Ge Se Sele Se Se Se Se Be Ge Se Os Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ss Se Se Se Se Se FH Se See 
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ECCSV_UNDERLINE = ($B81TJ, ‘Underline entity caption. 
Ee rsy-UNecneDs $B1T), 'Do not d splay counter for this entity. 

CC$V_BREAK = ($81TJ, ‘Start a new Line after entity/CHAPTER/APPENDIX. 
Bresvopese = [$81TJ, ‘Put @ page number in the . 

CC$V_PAGE = ($B1TJ, ‘Start & new page before CHAPTER or APPENDIX. 
ECCSV_STARTODD = ($BIT2, 'Start this chapter/appendix on an odd-numbered page. 
SCONTINUE 

ECCSH_RUNIN = CSTINY_INTEGER], 'Run in caption with text. 

ECCSH_CASE = CSTINY_INTEGER), 'Case rules for caption (see values below). 
ECCSH_POSITION = CSTINY_INTEGER], 'Placement of header (see values below). 
ECCSH_AFTER = CSSHORT_INTEGER], 'This many blank grace after header. 
ECCSH_BEFORE = [LSSHORT_INTEGER), 'Skip this many Lines before header. 
ECCSH_BETWEEN = [LSSHORT_INTEGERJ, 'Skip this many Lines between ‘CHAPTER’ and the title. 
ECCSH_SPACES = HORT_INTEGER]J, ‘Number of spaces between counter and caption. 
ECCSH_TESTPAGE = CSSHORT_ INTEGER, 

ECCS$H_ COUNTER = (SINTEGER) ‘Counter for this entity. 

ECCS$H-DISPLAY_DESC = CS$SHORT_INTEGERI, iRUNOFF display descriptor. 

ECCSH_PRE_LEN = [SSHORT_ INTEGER], 'Before-counter text Length. 

ECCSA_PRE_PTR = OINTERJ 'Before-counter text pointer. 

ECCSH_POST_LEN = [SSHORT_INTEGER], '‘After-counter text length. 

ECCSA_POST_P = CS$POINTER] ‘after-counter text pointer. 

TES; 


LITERAL 
ECCSK_LENGTH = SFIELD_SET_SIZE; 


: volves for ECCSH_CASE: 


LITERAL 
ECCSK_LEAVECASE = 0, 
ECCSK_FIRSTCAP = 1, ‘Make entity caption initial-cap. 
ECCSK_ALLCAP = 2; 'Make caption all-caps. 
! Values for ECCSH_POSITION: 
LITERAL 
ECCSK_LEFT s 6, ‘Make the entity caption flush-left. 
ECCSK_RIGHT = 1, ‘Make the entity caption flush-right. 
ECCSK_CENTER = ¢: ‘Center entity caption. 
ECCSK_ALTERNATE = 3; '(mnyi) Alternate flush-left, flush-right. 
] 
! Offsets of counters for example, figure, and table in the ECC structure 
(Entity Counter / Caption area). 
LITERAL 
EXAMP_OF FSET = 0, ' Examples 
F IGUR_OF FSET = 1, ' Figures 
TABLE _OF FSET = ¢ ' Tables 
HCOLL_OFFSET = 3, ' Collecting headers 
HL1_OFFSET = 4, ' HL 1 
HL2_ OFFSET = 5, ' HL 
HL5_OF FSET = 6, ' HL 


‘Generate test-page for this many Lines. 
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HL4_OF FSET = 7, ' HL 
HLS “OFFSET . 8. i WL 
HL6 "OFFSET = i we 6 
CHAP OFFSET = 16, i Chapters 
APPEND_OFFSET = 11; ! Appendix 
LITERAL 
MAX_ECC_OFFSET = 11; 
LITERA 


iS SECC_BLOCKs for exemple, tipure. table; 
1 for the Header-collecting block; 

! 6 for the header levels. 

1 for Chapters. 

1 ger £ Sogeneié: 

X_E +6414 1; 


CRO 
SECC BLOC 
BLOCK CECCSK LENGTH) FIELD (ECC_FIELDS) %; 


MSEC BLOCKVECTOR = 


BLOCKVECTOR CMAX_ECC, ECCS$K_LENGTH] FIELD (ECC_FIELDS) %; 


: End of ECC.REQ 


ISoseoctoge 38:07:46 


.0-74 
: (RUNOFF ..SRCJECC.REQ;1 


1183 0 


REQUIRE ‘REQ: FFDEFS.REQ’; 


1Ssseor9ge 97-48 Was BL 


FOO_... opcodes and status values for FOOFIL 
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CRONOEE SRC DSRLIB.REQ;1 (2) 
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3; «6€RI1 ! $ 
3 at 5 Version: *v04-000' : 
: R11 PITIIITILILILIL LLL LLL LLL LLL LIL LILI Tiliiiiiiiiiiiiiiiiiiiiiit i : 
; «6RI '® 3 
: 6RV '‘® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 3 
: R11 it DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * : 
: miy2) w ALL RIGHTS RESERVED. . : 
: R198 ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED « , 
s R11946 'w ONLY IN ACCORDANCE WITH TH RM SUCH LICENSE AND WITH THE * 6 
> R1195 '® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 3 
3 R118 'w COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 3 
3 «6©RI19 '® QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * F 
3 Bb - TRANSFERRED. : “ 
> R1200 ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 3 
; = kR1201 '* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * F 
3 4 8¢ - CORPORATION. : : 
: R1204 8 it DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * : 
: R1205 8 'w SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ® ; 
3; «€R1 38 'e * g 
: R120 0 ie * ; 
3 ai 08 Lee RRA AERA AEE AREA AAA P+ 
: RISTO 0 : 
: R1211 +4 : 
: 4 \§ 0 FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

> R1214 i ABSTRACT: | 

3 4 + 0 Literals defining FOOFIL operations and return values. 

: RI Hi ! ENVIRONMENT: Transportable BLISS 

: RI 13 AUTHOR: Rich Friday 

: a 1 CREATION DATE: 1982 

: RI 5 i MODIFIED BY: 

> R1225 i 005 KAD00005 Keith Dawson 07-Mar-1983 

; «RI $ ‘ Global edit of all modules. Updated module names, idents, 

: 4 3 : copyright dates. Changed require files to BLISS library. 

: RI inn 

3; =k1250 

3 =R1231 LITERAL 

: ORI § FOO_INIT = 0, ‘Initialize FOOIOB. 

; (RI FOO_OPIN = 1, ‘Open footnote file for input. 

; («RI FOO_OPOU = ¢° ‘Open footnote file for output. 

; «k1235 FOO_READ = 5, ‘Read a record from footnote file. 

; («RI FOO_WRIT = 4, ‘write a record to the footnote file. 

; ORI FOO_CLOS = 5, ‘Close the footnote file. 

; (ORI FOO_DELE = . ‘Delete the footnote file. 

; («RI FOO_CLEAN= 7, ‘Discard footnotes that have been output. 

3: R1240 FOO-RHDR = 8, ‘Read a record header. 


1ese $0071 38e $397 VES tSDBASESCRONOEE SRCSFFDEFS.REQ:1¢°%" cts 


> R124) FOO_PREAD= 9 ‘Read a ‘pass-through’ record. 

: RI 4¢ FOO“PWRIT= 16; iWrite a "pass-through" record. | 
: R1264 LITERAL | 
; 4 t2 FFOO_OP = 10; 'Highest operation code. 

; RI “9 LITERAL 

> «1248 FOO_NORMAL = 1, ‘Operation done ok. 

; R1249 FOO_LENDFIL = ¢: iEnd of file on write. | 
3 4 4 FOO_BAD = 3; i€ouldn' t perform operation. ) 
: RI 2 8 End of FFDEFS.REQ | 


s 255 0 REQUIRE ‘REQ:FLGT.REQ'; ! FLaG Table items 


1$seont 944 33:95:29 HDL e8Sam a ocu?™ ; 
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> R12546 ' 

: 4 5 } Version: *v04-000' 

: R1 3 PITITILILILLLILIL LLL LL LLL LLL LLL tiiiiiiiiiiiii 
; «(CRI '® e 
: RI § ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
> R1260 ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. x 
; RI 61 is ALL RIGHTS RESERVED. ° 
> RI 8 ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
+ R1264 is ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
: R1265 i INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
: RI 66 ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; R16 ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
: RI 68 ie TRANSFERRED. . 
. :* 

+ R1270 ‘® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
: R1271 0 i# AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; RI , 9 is CORPORATION. : 
° '® 

: R1274 0 ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
> Ri2e75 0 ie SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. = 
ap gE : 
: Ristt 8 PETTITIITILILILI LILLE TLL LLL LLL LiL iii iiliTiiiiiiiiiiiiiil 
: k1279 ! 

ri 960 eae 

: Ree FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

: R12B4 i ABSTRACT: 

: sy $2 8 Flag table: values and status of flag characters. 

; mi386 0 ENVIRONMENT: Transportable BLISS 

: 1289 6 AUTHOR: Rich Friday 

; R129 p i CREATION DATE: 1978 

; n1398 0 ' MODIFIED BY: 

: R598 8 i 005 KFA00005 Ken Alden 21-Mar-1983 

3 ai <9 For DSRPLUS: eliminated the passthrough flag. 

: R1298 i 004 KFA00004 Ken Alden 15-Mar-1983 

3 4 44 For DSRPLUS: added bits for passthrough flag. 

: R1301 i 003 KAD00003 Keith Dawson 07-Mar-1983 

3 A 0 ; Global edit of all modules. Updated module names, idents, 

; =R130 8 ; copyright dates. Changed require files to BLISS library. 

3 R1 304 i 

: R1305 0 ine 


pay 


ee - > 
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1er8een 194 S2iSiiie  “SSSSsnDASSCRONOFE SRCFLGT.REQ:1 
! In the following definitions, 3-character abbreviations are used for the 
names of the flags: 


Page (3) 


BUS 


abbre- 
viation 


flag 


Comment 


abbre- 
viation 


flag 


Bold 


CON Control HYP Hhyphenate 
Quo Accept (ne Quote) OvR 
UPP Uppercase SBX 
LOW Lowercase PER 
CAP Capitalize BRK Break 

UND Underline NPX No-permute-index 


Overstrike 


AAAWAAANNNNNANA 


INARI PIPORI PINION 2 2 


—OOONOUS WN — 


COOWOONOULSWN-OOO® 


! 
i 
i 
i 
i 
i 
i 
EFO Er.dfootnote Index 
' 
i 
i 
i 
i 
i 


LITERAL 


FLAG_COUNT 


18; ! Number of flags. 
LITERAL 


DDDDDDAADAAABADAAwAAAAADADA-zAD 
DD DD ld ed a dd 


SUB Substitute SPA Space 
IND 


eueES 


SOOSOO/N) —“OOOGOCOCOCOCOOSCOOCOSOSSOSSOSOCOSCCOCCOOCCOOCCODOOOCOCOCOOOOOOCOOOOO 
B 
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WAWW AANA NAAN 


Pere 


@ 
- 
J 
~" 
rc 
a 
ao 
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tt 3 SS ORONO EIN O 


NOUS WII Or 2 es es se es se es & 


Seen © & & & & & 


BRK"FLAG 
NPX~FLAG 


LITERAL 

0, 

¥ 
| 
| 
| 


FLAG_ENABLED 

FLAG_CHARACTER 
! The FLAG_TABLE structure does not need to use ZUPVAL to be on -11s and VAX, 
: poceuse the information there can be saved in single bytes. 


STRUCTU 
FLAG_TABLECI,J;N=FLAG_COUNT) = 
t2 * N * XUPVALJ 


a a a —  —  - — 


DDDDDDB BD DVD DD DD DAAAAAAADwWADAD 
parser yar eer perpen ary 
OOONO US WN —-O0Oan 


NABLED 
+ (] * XUPVAL) 
+ ( FLAG_COUNT + I) *ZUPVAL ); 


ACRO 
FLGT_DEFINITION - 
FLAG_TABLELFLAG_COUNT)3; 


DDDDDD 
Od ed td od 


FREER AAR Eee ee ee 
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; R1363 0 ! End of FLGT.REQ 
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>; 1364 0 REQUIRE ‘REQ:FLIPCHARS.REQ'; ! FLIPSK_... special characters 
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ise ats 7 $3; 833 RUNOFF. $rc FLIPCHARS. rheo- 1 _ dj 


R1 : 
4 : Version: *v04-000' 
4) iseuateusnnentenetenereneneeteenneennteeererrtentertteerenerenerenerntnnetts 
i* te 
R04 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
R1 ‘® DIGITAL ee aS EORPORATION, MAYNARD, MASSACHUSETTS. ® 
4, = ALL RIGHTS RESERVED. * 
4 te 
Ri '® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND copteD ® 
R1 '‘® ONLY i" om DANCE WITH THE TERMS OF raven peat SE AND WITH THE * 
R14 '® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER’ * 
R1 'e COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
R1 '@ OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
4 TRANSFERRED. ed 
’ ® 
R1 '® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
R1 '® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
4 i CORPORATION. * 
: te 
R138 '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
4 "4 i: SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
: ® 
R1388 'e * 
4 44 ‘aaah ian ia acini aia 
R 
A 93 e+ 
4 38 FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
R1395 ABSTRACT 
4 38 This file contains the definitions of the FLIP special text characters. 
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ENVIRONMENT: Transportable BLISS 


Be Se Oe Be Be Se Se Se Se Be Se Se Oe Se Ge Fe Se Be Se Be Ge Se Ge Fe Se Fe Se Se Fe Ss Ge oe Se ts Se Se Se Se Ge Se Se Se Se Se Ge Ge Ge Se Se Se Se Ge Se FH Se Se ae 
z 
—_ 


} 
} 
i 
i 
R1399 ! 
R1400 ' AUTHOR: George Hetrick 
R1401 : 
eS) CREATION DATE: 19-Feb-1982 
aieke MODIFIED BY: 
e's} ! 002 KAD00002 Keith Dawson 07-Mar-1983 
R140 ! Global edit of alt modules. Updated module names idents, 
bpe's: } copyright dates. Changed require files to BLISS library. 
R1410 len 
R1411 
miele 
R141 
R1414 
R1415 
aiei8 
R141 
aiei3 
R141 
miesy 
R1421 
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; R1422 0 : End of FLIPCHARS.REQ 


1423 0 


REQUIRE ‘REQ:FLIPRECS.REQ'; 


FLIP macro, record, & field dottnitions and MAX_LEVELS. 
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; Rié 4 TITLE "FLIPRECS == FLIP/RUNOFF record formats’ 

: aie é : Version: *v04-000' 

: R14 3 PITTITILITILLL LLL LI LLL LLL LLL LITT titi iiiitt iit 
; ORIG 'e ® 
; kR1450 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
3: 6R1431 '‘@ DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. * 
3 aie ¢ - ALL RIGHTS RESERVED. 7 
> RIG iw THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
3 «6©R14635 'w ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
; RIG '® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
3; ORIG '® COPIES THEREOF MAY wet BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 ORIG 5 'w OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: sph e4 - TRANSFERRED. - 
+ R1441 it THe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3 nieee '® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: See 2 be CORPORATION. . 
° '@ 

: R1465 '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; Rise t# SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ° 
° 'e 

> R1448 0 ie ‘ 
: R1G49 Lee RARER RARER AA RARER AAA AREA AEA EEA E AAA A EAA TEAR AK ARERR 
mio 8 

: R143¢ 0 1+¢ 

3 ts FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

> R1455 i ABSTRACT: 

3 yes] this: file documents the records emitted by RUNOFF for processing by FLIP. 
; R1438 ENVIRONMENT 

+ R1460 i 

; ped AUTHOR: George C. Hetrick 

; Riess i CREATION DATE: 1981 

: R1464 i 

3 niet? MODIFIED BY: 

: rhe: i 003 KAD00003 Keith awson 17-Ma 

: Ri463 i Made all ~_CODEs ($T Ny INTEG RI" $ a —_ ,™ reason for 

3 nies i having changed | oe SIRTEGERI's in fhe firs sf place has gone 
3 =R1470 i away: FLIP ¢ ngy more eigatly conditionalized (for 

: miee the a A, = i Tors. 0 mainly). 

: Riers i 002 Keith Dawson 07-Mar-1983 

3: R1674 i Global oe ate of alt pot rg dated module names, idents, 

: R147 z copyright dates. Changed a re files to BLISS library. 
pay 

: R79 ' 

; R1480 Zsbttl ‘FLIP/RUNOFF record types’; 
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FLIPSK_VERSION = 1; 
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INIT == initial FLIP record 
Asbttl “INIT -- initial FLIP record’; 


15-Sep- 


SFIE 
SPLipsinit FIELDS = gt 
NIT_CODE sTiny INTEGER], 
ee Ted, 
VERLAY INIT TAFtaGS) 
INIT_C 


inue 
veg, INITALEVEL = C$SHORT_INTEGER] 


verious flags 
was /CONTENTS specified 
FLIP version 
Size in UNITS 


Size in FULLWORDS 
' Size in UNITS 


LITERAL 
FLI 


uo” 
ue 
~~ 
m 
te 


MACRO 
SFLIPLINIT = BLOCKCFLIPSK_INIT_LENGTH] FIELD(SFLIPSINIT_FIELDS)2; 
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Watt atk ae 1Bose Seb713bc 52:51:39  “S¥sdboBASeStacnore sacSeuiprecs.reart™” cfs 


Zsbttl "RNOTXT <= text record’; 


FIELD IPSRNOTXT FIELDS1= = At 
RNO D TINY_INTEGER] ' record type 
: RNOTXT “LENGTH SSHORT_INTEGERS i Length of data portion 
LITERA 
FLIPSK_RNOTXT_BASELEN = SFIELD_SET_SIZE ' Size in FULLWORDS 
FLIPSKTRNOTXT-BASESIZ = XUPVAL*S$FIELD_SET_SIZE; 


E 
 §ize in UNITS 


SFLIPSRNOTXT FIELDS2= ET 
RNOTXT_FILLER $SUB_BLOCK (F jPsk. RNOTXT_BASELEN) J, 
RNOTXT_TEXT $SUB"BLOCK(1000)]~ =! TEXT segment 
LITERAL 
FL i P$K_RNOTXT_LENGTH = SFIELD_SET_SIZE, ! Size in FULLWORDS 
LIPSK-RNOTXT_SIZE = ZUPVAL*S$FIELB_SET_SIZE;! Size in UNITS 
MACR 
SFLIP. RNOTXT = BLOCKCFL IPS K PNOrKT LENGTH] FIELD(SFLIPSRNOTXT_FIELDS1, 
SFLIPSRNOTXT_FIELDS 
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TOCTXT == TOC text record -Sep-1984 1:2 ~$255$DUA2 CRUNOF F . Se FLIPRECS.REQ;1 (4) 


Zsbttl "TOCTXT == TOC text record’; 


SLapsrocrat FIELDS1= gt 
TOCTXT_CODE TINY_INTEGER], ! record type 
TOCTXT_MAJOR = [STINY_INTEGER], : asior code 
TOCTX XT="M MINOR = CSTINY_INTEGER], ! minor code 
ss TOCTXT"LENGTH = CS$INTEGER) ! Length of data portion 
LITERAL 
FLIPSK_TOCTXT_BASELEN = SFIELD dH SIZE ! Size in FULLWORDS 
FLIPSK-TOCTXT-BASESIZ = XUPVAL*SFIELD_SET SIZE 
t Piso in UNITS 
IELD 
wre FIELDS2= 
CTXT_FILLER = ($SUB_BLOCK(FLIPS$K_TOCTXT_BASELEN)]), 
an Tortat “TEXT = C$SUB-BLOCK(1000) J 1 TEXT segment 
LITERAL 
FLIPSK_TOCTXT_LENGTH = S$FIELD_SET_SIZE, ! Size in FULLWORDS 
FLIPSK~ “TOCTXT_SIZE = ZUPVAL*SFIELB_SET_SIZE; ! Size in UNITS 
MAL 32 
SFLIP_TOCTXT = BLOCKCFLIPSK_TOCTXT_LENGTH] FIELD(SFLIPSTOCTXT_FIELDS1 
SFLIPSTOCTXT_FIELDS2)2; 


3 
FLIPRECS == FLIP/RUNOFF record formats 1S-se =1984 23:07:4 VAX-11 Bliss-32 V4.0-74 P 
TOCRD == TOC descriptor 1 =30071382 $3: 07:38 VSS SSDUAIaSTRONOEE SRC FLIPRECS.REQ:1>~ (3 


Zsbttl ‘TOCRD <= TOC descriptor’; 
foc ' record type 
a : major code 
TOCRD_MI ! minor coce 


' Size in FULLWORDS 
SIZE; ! Size in UNITS 


=m 


NOUS AN“ OOONOUEW 


MACRO 
SFLIP_TOCRD = BLOCKCFLIPSK_TOCRD_LENGTH] FIELD(SFLIPSTOCRD_FIELDS)2; 


DDBDBDwDDADDwADDAAADwV-zwD 
wdbaiaeh dbabaiuauabadbabuabuababababab 


DUPV DV PVPS SVSVSVSISISIIIS 


hart tty eter = ee P 
feleolelelelelelelelelelalelalala) 
wn" 
eT 
er 
nm 
a 
— 
—— UO 
ooe@e 
OOo 
DDO 
covoVTon 
' Dz» 
ta 
a 
zconm 
oorm- 
za rm 
od 
LJ 
La) 
nuun 
erowrnwa 
PArvIem 
bb 
22~=— 
— 
mmn~< 
qc 
mre 
DwDz 
ee en) 
som 
a 
mn 
z= 
=) 
>. 


FLIPRECS == FLIP/RUNOFF record formats 1§-sep-1984 33:07 


1 Bliss-32 V4.0- 
TOCPAG == TOC page record -Sep-1 


VS354S00A28 8: CRUNOFF . SRCSFLIPRECS.REQTS > (83 


3 a} $9 Zsbttl "TOCPAG == TOC page record’; 

3 6©R1591 hs 

; (RI 38 er 43s ws 4 geet = fr 

; =6R159 TOCPA TINY_INTEGER] ' Pegore type 

> R1594 TOEPAG™ RE NO $SUB_BLOCK Bae _SCT_SIZE) 

> =R1595 ! page number segment 
3; (OR! My] TES; 

: R159 

: «RI a8 LITERAL 

; (CR 4 i P$K_TOCPAG_LENGTH = SFIELD_SET_ SIZE, ' Size in FULLWORDS 

; R1600 LIPSK_TOCPAG_SIZE = ZUPVAL*SFIELB_SET_SIZE;! Size in UNITS 

: R160 CRO 

: R108 SFLIP. TOCPAG = BLOCKCFLIPSK_TOCPAG_LENGTH] FIELD(SFLIPSTOCPAG_FIELDS)2; 


23 
R1605 0 
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4 Tha ie ar AS UL IP/RUNOTE record formats 18-se 300-1382 $3: gi: $8 VE SSSD OARS -32 V 


Asbttl "TCXXTN == index’; 


USSPapsrexxty FIELDS = = Pg 
TCXXTN_CODE TINY INTEGER], 


SAL 1GNCFUL WORD) ~ 
TCXXTN_XTN SINTEGER], ! Frgresctton type 
TCXXTN_SCT $SuB _BLOCK (PAGE SCT SIZE) 

Tes ! page number segment 


LTTE, 
LIPSK_TCXXTN 
FLIPSK” 1 CXXTN 


' record type 


ENGTH = SFIELD SET 
IZE = 


NLL SIZE, ' Size in FULLWORDS 
“Ss ZUPVAL*SFIELB_SET_SIZE;! Size in UNITS 
MACR 

SFLIP. TCXXTN = BLOCKCFLIPSK_TCXXTN_LENGTH] FIELD(SFLIPSTCXXTN_FIELCS) 2%; 


UA2B: CRUNO fF OSRCIFLIPRECS. REQ; 1 3 


RET 4s Sar header Locet tole tonned ise 30071382 33:97:58 | SNS BAS eStaGwbee saclruiprecs.reori™” «8 


: Rie é Zsbttl "TOCHLI == TOC header level info record’; 

> RIO FIELD 

: RI FLIPSTOCHLI of fELos = = iy 

: RI nity co TINY_INTEGER] +) saat type 
: Ri ToeHt “ALL AST $SUB_BLOCK (2+mAXx “LEVEL s) 

: R16 ; 

; «6©R16 ! header level display info 
> R16 TES; 

Me 

+ R16 FLIPSK_TOCHLI_LENGTH = SFIELD_SET_SIZE, ' Size in FULLWORDS 

: R16 8 0 FLIPSK-TOCHLI-SIZE = %UPVAL*SFIELB_SET_SIZE;! Size in UNITS 

: R1640 0 CRO 

> R1641 0 SFLIP_TOCHLI = BLOCKCFLIPSK_TOCHLI_LENGTH] FIELD(SFLIPSTOCHLI_FIELDS)2; 


eader level info 
TOCHLI _HLDSP = s toa p.eccnan eves) 
| 
| 


ae —- 


Rin == aes Gorter eee 1bose 90-1382 33:91:39  “S35ERnGASBSCRONDEE sRCSFLIPRECS.REGrS®” «$$ 


: Rises Zsbttl ‘TCKINI == Index Header record’; 

: R164 SFIELD 

> R1645 FLIPSTCXINI_FIELDS = E 

: (ORI § TCXINI_ CODE = (S$TINY_INTEGER], ' record type 

; Rl TCXINI“HEADER = CSINTEGER i TCX form 

mise 

: Reet a = $FIELD_SET_SIZE, z 

: Ri63¢ FLIPSK~ ZUPVAL *SFIELB_SET_SIZE; ze in UNITS 

: Rieee 8 MACRO 

: R1655 9 SFLIP_TCXINI = BLOCKCFLIPSK_TCXINI_LENGTH] FIELD(SFLIPSTCXINI_FIELDS)%; 


7 at indicator 
TES; 
LITERAL 
FLIPSK_TCXINI_LENGTH = SFIELD_SET_SIZE ' Size in FULLWORDS 
K_TCXINI_SIZE = ZUPVAL*SFIELD_SET ;! Size i 
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FLIPRECS == FLIP/RUNOFF record formats Pr 4 t §$3:0/ 
TCXTXT == Index TEXT record -Sep-1984 


Asbttl "TCKTXT == Index TEXT record’; 


FIELD IPSTCXTXT FIELDS! = we i? 
TCXTXT_CODE = CSTINY_INTEGER), ! record type 
SALIGN(FULLWORD) 
TCXTXT_ENTRY = [SINTEGER), ! ENTRY flag 
TCX RTRy. LENGTH = [SINTEGER]), ! Length of data 
TCXTXT_KTN = LSINTEGERJ, ' transaction number 
ves TEXTXT “BAR = [SINTEGER ! change bar flag 
LITERAL 
FLIPSK_TCXTXT_BASELEN = SFIELD_SET_SIZE : Size in FULLWORDS 
FLIPSK-TCXTXT“BASESIZ = XUPVAL#$FIELD_SET_SIZE;! Size in UNITS 


FIELD 
SFLIPSTcxTXT FIELDS2 = SET 
TCXTXT_DOMMY = ($SUB_BL CK CFL PSK. TCXTXT BASELEN)], 
_TCXTXT “TEXT = $2UB-BLOC 1 ! téxt of entry 


! Size in FULLWORDS 
33 31 UNITS 


=. 
$ ze in 


ACRO 
$FLIP_TCXTXT = B 
SFL 


: CRUNOFF she FLIPRECS. Rea: wt 


— a ed es = 3 
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FLIPRECS == FLIP/RUNOFF record formats 13-se gep- 138% $3: gy: 48 
TOCHL == HL indicator record -Sep-1984 1:2 


Zsbttl "TOCHL == HL indicator record’; 


F ELD 
SFLIPSTOCHL FIELDS = sft 
ves TOCHL_ CODE = [STINY_INTEGER) ! record type 
LITERS, 
LIPSK_TOCHL_LENGTH = SFIELD_SET_SIZE, ! Size in FULLWORDS 
FLIPSKD <TOCHL-SIZE = ZUPVAL*SFIELB_SET_SIZE; ! Size in UNITS 


MACR 
SFLIP_TOCHL = BLOCKCFLIPSK_TOCHL_LENGTH] FIELD(SFLIPSTOCHL_FIELDS)2; 


VAX=11 BLi 
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CRUNOFF .SRCIJFLIPRECS. 
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TOCHL == HL indicator record ~300 138% $3: 93 rh 


>: 1699 0 REQUIRE ‘REQ:FNCT.REQ'; ! Footnote control table 


1 BLiss-32 v4.0-74 Page 69 
VS355SDUADB sCRONOFFCSRCSDSRLIB.REQ: 1° (3) 
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FLIPRECS == FLIP/RUNOFF record formats 1}-se Sep~)984 7: 
TOCHL == HL indicator record 30071 3B $3: 9 48 
1 

| Version: "v04-000' 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


ate _ S. is FURNISHED UNDER & LICENSE AND MAY BE USED AND copier 

Y IN ACCORDANCE WITH THE TERMS OF SUCH That AND WITH THE 
INCLUSION OF THe ABOVE og dl NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
Pannerenatee NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORAT On NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
ABSTRACT: Footnote control table. 

ENVIRONMENT: Transportable BLISS 

AUTHOR: Rich Friday CREATION DATE: 1978 


: CRUNOFF , she FNCT.REQ;1 


3 
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OCHL == HL indicator record 1e3eb-13be 53:51:95 — “S¥sbsoGas8Scacneré sacdencr.reo:1 '2% 3} 
Mo 


DIFIED BY: 


004 REROO004 Ron Randall 05-Apr-1983 
For DSRPLUS: For footnote numbering, added 
fnct_ first line and fnct_number_l/r. 


003 REROO003 Ron Randall 27-Mar-1983 
For DOSRPLUS: 
Added fnct_numbering and fnct_number to indicate ag ott. 
of segenesse and to hold the nunber of the current footnote 
on S page. 


002 KAD00002 Keith Dawson 07-Mar-1983 
Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 
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FLIPRECS == FLIP/RUNOFF record formats 1$-seo-1984 $3: 07:40 vere Bt igsrze V4.0-74 Page (8 


LITERAL 
! Number of words of control information in these tables. 
fnct_control = 12, 


TOCHL == HL indicator record Sep-1 ~$255$DUAZ8 : (RUNOFF .SRCJFNCT.REQ;1 ) 
> R1753 MACRO 
> = R1756 ' 
; aif 5 Number of unexpanded footnotes waiting to be output. 
3 Ri? 5 fnct count = fnct (OJ %, 
; ni89 | Number of unexpanded footnotes on or before current page. 
> R1761 fnct_read fnct (1) %, 
: R176 Paiggaintging out 
; nile The ‘'n'’ from .FOOTNOTE n (zero if not given). 
3 Ries fnetn = fnct (2) %, 
; ni 76? Number of expanded footnotes present in these tables. 
3 R1769 fnct_old = fnct (3) %, 
; Ri rr) 8 This many footnotes are attached to Lines not yet output. 
; mitt? 6 fnct_waiting = fnct (4) &, 
; RI775 TRUE between .FOOTNOTE and .END FOOTNOTE. 
; RIPTT 9 fnct_collecting = fnct (5) %, 
3 tha 6 ; TRUE if putting a footnote out onto a page. 
; Ay 0 fnct_expanding = fnct (6) %, 
: R178s 0 i TRUE if numbering footnotes. 
: Ribas 0 hot inher’ fnet (7) % 
3 nct_number in = ct ° 
> R1786 8 Wig ° : 
; At TRUE if building first Line of a numbered footnote. 
: R1789 o fnct_first line = fnct (8) %, 
3 R1791 9 Left digit of the current footnote in this chapter. 
: R198 0 fnct_number_| = fnct (9) %, 
3; R1794 0 ' 
: Tae: 6 Right digit of the current footnote in this chapter. 
: R178 fnct_number_r = fnct (10) %, 
; k1798 : 
: he Current footnote in this chapter. 
:  R1801 fnct_number = fnet (11) 2; 
; (ORI ¢ 
; (CRI 
; (CR 
; R1805 
3; (ORI 
; (CRI 
; «(RI 
s Ri 


sss 


i Maximum number of footnotes that can be noted in these tables. 


FLIPRECS == FLIP/RUNOFF record formats 13-se Sep-1 1 Bliss-32 V4.0-74 Pa 3 
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1 
tnct_max = 20; 


MACRO 
; ALL footnote control information saved in this vector. 
fnct_definition = VECTOR Cfnct_control] %; 
MACRO 
i entries. lodtyléyel footnotes. There are .fnct_count + .fnct_old 
° y the last .fnct =count aré useful; of these, 
i 


t's ok to output at most .fnct_ready of them right now. 
(The extra position allocated aS a one-word work area.) 


Ds west tee. Saltninian = VECTOR Cfnct_max + 1] %; 
MACRO 

Number of TSF/MRA pairs in each saved footnote. 

fn_int_size_definition = VECTOR Cfnct_max + 1] %; 


! End of fnct.REQ 
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; 1835 0 REQUIRE ‘REQ:FOOREC.REQ'; ! FOOREC_... items (for FN record headers) 
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F -11 Bliss-32 V4.0-7 

TOCHL == HL indicator record 15-Sep-1 2B: Page 3 
! 

i 


VAX 
VS35bSo08 : CRUNOF F SRC FOOREC.REQ;1 (1) 


Version: *v04-000' 


PARES ESOLASSLISIO SESE S TET E ETE TTS TTT ee Te Pc ee eee ec icceree cei ceric rir rai st | 


i COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


® 

© 

* 

ty 

we 

& 

& 

. * OV ] * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
is TRANSFERRED. . 
! te 
i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOT * 
* 

& 

® 

* 

® 

* 

® 

® 


Ic 
'* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!® CORPORATION. 


't DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Ve R RRR EAAERA AEE 
' 


144 
FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 


i ABSTRACT: 

i FOOREC.REQ defines the format of record headers for records written 

i during footnote processing to the footnote temporary files, OOZRNO.TMP. 
; Each record header gives some cursory pererees on about the record that 
: follows it. Such records are, typicall x, TSF, an MRA, or ‘‘pass- 

; through" information intended for indexing or table of contents. 


Note that FOOREC_ADDRESS, oh aay ah Lorats as part of FOOREC, is 
never read or written. Instead, FOO D, on reading a pete 
through" record, returns the address e- ih “formation ther 

FOO_PWRIT uses that to determine where the ..formation to be “ceteeen 


is Stored. 
ENVIRONMENT: Transportable BLISS 
AUTHOR: Rich Friday 


CREATION DATE: 1982 
MODIFIED BY: 
002 KAD00002 Keith Dawson 07-Mar-1983 


Global edit of all modules. U gdated module names, idents, 
copyright dates. Changed requir files to BLISS library. 
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; 1893 MACRO ; 
3 n1836 FOOREC_MAJOR_TYPE = FOOREC (0)%, 'The major record type (required information). ; 
; R189 REC_MINOR TYPE = FOOREC (1J%, !The minor record type (optional information). ; 
g nia38 REC-RECORD SIZE = FOOREC ¢ i, ‘Number of words in data record that follows (required information). : 
> =R189 FOOREC-XTN_PTR = FOOREC i, 'If not zero, then it's the number of the word in the record where ; 
; R1898 ia transaction number is stored. ; 
3 hos FOOREC_ADDRESS = FOOREC (4]%; !Location of information read/written. : 
; 1901 LITERAL : 
3 aiey FOOREC_SIZE = 4; !Number of words in the record header. ‘ 
3 R1904 MACRO : 
; R1905 FOOREC_DEF INITION : 
3 Rigs = VECTOR CFOOREC_SIZE + 1] 2%; ° 
3 R38 ‘ 
; 61908 ‘Here are the major and minor record types. ° 
; R1909 LITERAL ‘ 
; =R1910 FOOREC_MAJ_TS = 0, !The record is a TSF data structure. ‘ 
3 R1911 FOOREC _MAJ_MRA =1, ‘The record is an MRA data structure. ‘ 
$ Rigg 0 REC_MAJ_PASS = 2, '*‘Pass=through"’ information. ; 
; R1913 0 OOREC _MIN_ INDEX = 0, ‘Indexing information. ‘ 
; R1914 0 FOOREC_MIN_TOC = 1, ‘Table of contents information. ; 
; Sha FOOREC_MIN_TEXT = 2; !Something to do with normal text. ; 
3 R191? 0 LITERAL : ‘ 
; R1918 O FOOREC_MAX_MAJ = S. 'The Largest major record type. : 
; R338 2 FOOREC_MAX_MIN = 2; 'The Largest minor record type. ‘ 
3; R1921 0 ; End of FOOREC.REQ ‘ 
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VAX-11 Bliss-32 V4.0-7 
TOCHL == HL indicator record 1B-se et $3: Sie $3548 Te : CRUNOFF . se DSRLIB.REQ;1 (2) 
; 1922 0 REQUIRE ‘REQ:FRMSTK.REQ'; ! Codes for .LS & .NT context save veeeh 


FLIPRECS == FLIP/RUNOFF record formats 1S-se $ep-1984 7: VAX-11 Bliss-32 V4.0-7 7 
TOCHL == HL indicator record r3Sp213Re 33:97:39 SSE BLS StaGnbee sacSramstx.reas1 2% (45 
' 
! 


: k1923 : 

; £12 ¢ Version: *v04-000' 

: 4): 8 leuneeeeeneeeneeeneentenneenneennnneenententerttertettetrertnetnnerertnntnes 
g fe 

; ORI 3 '® cpeye sen] (c) 1978, 1980, 1982, 1984 BY * 
; (RI '® DIGITA A Fou UIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . 
; Ry » is ALL RIGHTS RESERVED. - 
: R19 ¢ ie THIS wre. is FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
; RID ‘® ONLY IN ACCORDANCE WITH THE TERNS OF SUCH biCeN NSE AND WITH THE * 
; Ri 4 'w INCLUSION OF THe ABOVE phd OTICE. THIS SOFTWARE OR ANY OTHER ® 
3; =R1935 ‘ws COPIES THEREOF MAY NOT BE PROV IDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; =6RI9 'w QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: aig . :. TRANSFERRED. * 
; : * 
3; k1939 '‘® THE oA ry phe I IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3; =6©R1940 '® AND SHOULD BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; dbo} « CORPORATION. * 
3 ? * 
: P1908 8 '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; R1946 0 '® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
ag 8 
. ® 
: misc 0 PITITITITITILILTLL LLL LLL LLL LLL LL TLi LiL tiTitililtiiiiiiiitit tie 
; R $ 

MBS Be 

: ni95¢ 8 FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

> R195 i ABSTRACT 

3; =R19546 6 : Definitions eoeenes to oe data stack on which formatting information 
; R1955 i is saved by the .NOTE and .LIST commands. Information is removed by 

: Ri e8 .END NOTE and .END LIST commands. 

3 R1958 0 ENVIRONMENT: Compatible BLISS 

; R1960 6 AUTHOR: Rich Friday 

; R196¢ 0 | CREATION DATE: 1978 

; R196 0 MODIFIED BY: 

: R1966 i 003 KAD00003 Keith Dawson 07-Mar-1983 

: R196; i Global edit of all coddaes Updated module names, idents, 

3 bse 4 i copyright dates. Changed require files to BLISS library. 

3 ni3s i 

; R1970 ine 

: apse! LITERAL 

> R197 FRMSTK.LIMIT = CL_DEFAULT_SIZE; 

> R1974 ' Maximum. depth of the stack. It is 15 at 

3 «R1975 i this point; put pee actual value is kept 

> R197 i only in CLIST. 

: R197 LITERAL 

; R197 FRMSTK_FILL = i. ' A copy of SCA_FILL 

; «R197 FRMSTK-JUSTIFY = 02, ! A copy of SCA_JUSTIFY 
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1bose0-198 $3: gf 39 VEBSSSDUADES CRONOEE SRC FRMSTK.REQ; tees 3 


HL == HL indicator record 
> R19 FRMSTK at = 03, ! A copy of $64. RM 
> 6R1981 FRMSTK_L = ¢° ! A copy o A$ 
; (ORI § FRMSTK_ “SPACING = 05, ' A copy oi of SCA agg toy 
; «RI FRMSTK_COMMAND = g. ' The handler code for the Opens responsible for this entry 
; «RI FRMSTK_ISE = Q7, ! The input sequence og for the c — nd 
; =R1985 FRMSTK_IPAGEN = g ! The input page numb or the command 
; «RI 8 iat LMS a th =09, $!A ay Ho ll ft) ghe fi te=spec in we ch the command occurred. 
; UR} FRMSTK_FSPECC = 10, ! The tongte the file-spec in which the command occurred. 
; RID faa LLM 3 D =1j, ! The RE UIRE nesting Level in effect 
> RID FRMSTK_ CROCK = 12, ! A copy of SCA_CROCK 
; (ORI FRMSTK_DO_NBITS = 15, ! A copy of SCA_DO_NBITS 
: p44 FRMSTK_KER = 14, ! A copy of SCA_KER 
: 4p 43 FRMSTK~ INDEX = 15; ! A copy of SCA_INDEX. 
3 =R1996 LITERAL 
3 algae FRMSTK_ITEM_CNT = 15; ! Number of pieces of info per entry 
r R999 ‘One more eg | is allocated than requested so than the routine 
; =kR1998 'LIT sprgcess iterals) can save information. 
; kR1999 0 STRUCTUR 
; R2000 8 FORM _STACKCI,J;N=FRMSTK_ITEM_CNT,M=FRMSTK_LIMIT) = 
> R2001 CXUPVAL*( Ne(M’+ 
; R O06 0 (FORM_STACK + XUPVAL®( (1 - 1)#N#J- 1) ); 
; k2003 0 
; R2006 0 


| 
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; 2005 0 REQUIRE ‘REQ:FSPACK.REQ'; ! FIXED STRING structure & FS_... macros 
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TOCHL == HL indicator record 1 ae Pi $3: 1399 $354 
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| Version: *v04-000' 
PITITILILILILILL LLL LLL LLL LLL TLL TTT ii iii iiitii ttt 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND M 
ONLY IN ACCORDANCE WITH THE 


® 
e 

* 

w 

* 

a 

e 

* 

' * 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE * 
'‘e TRANSFERRED. ® 
& 

'‘® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE : 
e 

s 

t 

® 

te 

n 


:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!® CORPORATION. 


i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!t SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

i 
 eeunenneaennennnianansenuensesahonedbneonesbeeeseneboeesecenedqnesooenbenee 
i 


'e¢ 

' FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

i ABSTRACT: 
Macros to manipulate FIXED_STRINGS: transportable, fixed-length 
strings. 

i ENVIRONMENT: Transportable BLISS 

i AUTHOR: Rich Friday 


i CREATION DATE: 1978 
i MODIFIED BY: 


002 KAD00002 Keith Dawson 07-Mar-1983 
Steve) edit of all modules. U dated module names, idents, 
copyright dates. Changed require files to BLISS library. 


'¢ 

! FIXED STRING is a structure that contains a string of an expected maximum 
: Length, plus additional locations to contain information related to the 
status of the string. 


STRUCTURE 
Hined_steingt tenet) 2 
C4*ZUPVAL + CHSALLOCATION(N®*ZUPVAL) J 
(fixed string - ZUPVAL*( 1 = 1) ); 


| 


CRUNOFF .SRCJFSPACK.REQ;1 
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TOCHL == HL indicator record 1 ~330-1 382 33:97:39 VSSSSSDUADES RUNOFF SRC FSPACK.REQ;1 tte 5 
4 


3; R : ; 
; OR : The following Literals are names for the fields allocated above. These ; 
; . P) ;_mames are not to be used by a user. : 
; R LITERAL | ; 
; OR FS__FCP = 01, ! CHSPTR to first character position. | ; 
3 UR FS__NCP = ¢: ! CHSPTR to next character position. ; 
; OR FS__MAX = Q5, ! Capacity of the counted string. ; 
; R207 FS__LEN = 04; ! Current Length. ; 
; OR ore : 
; R207 '+ : 
: : 13 H FS_ALLOCATE is used to allocate and initialize a fixed-length string. : 
: R207 CRO 3 
3 MR O77 fs_allocate fs none. fs_maxl) = ; 
7 MR 8 s_name:fixed_ string Cfs_maxl] : 
3 MR207' INITIAL (0, F 
; MR2O . ; 
3 a 8 1 {5-maxt. : 
: MRsoRs %; ; 
; RDOBS t+ 
: OB Control information is accessed via the following macros. ; 
; R20 MACRO 3 
3 MR2089 fs_start (fs_name) = : 
3 me Q s_name [fs__fcp] : 
; no03e : F 
3 MR fs_next (fs_name) = ; 
3 +. Boe fs_name Cfs__ncp] : 
: 096 : 3 
3 R209 fs_maxsize (fs_name) = ; 
; 4 44 fs_name CfS__max] : 
> Rel ; ; 
3; MR2101 fs_length dy name) = : 
3 MR21 ; fs_name (Tfs__len] : 
: Rei ; 3 
: R510 : 
$ :+ Py 
3 : } : FS_INIT initializes a fixed-length s*ring to the null string. ‘ 
: R2108 MACRO : 
3 MR21 fs_init (fs_name) = : 
3 ™R2110 BEGIN 3 
3 MR2111 fs_length (fs_name) = 0; ; 
3; MR ig fs_start (fs_name) = CHSPTR (fs_name (5)); : 
3 MR211 fs_next (fs_name) = .fs_start Ufs_name); : 
i MRIS > iam 
: R 116 : F 
3; «R211 '¢ ; 
3 . 118 : FS_WCHAR puts a character into the fixed-length string. : 


oe a a La = 2 ss Ln Ls 
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~5255$DUA2 


CRO 
ts oveber (fs_name,khar) = 


CHSWCHAR_A (khar, fs_next (fs_name)); ‘Write character and advance pointer. 
fg, Length (fs_name) = .fs_length (fs. name) + 1; !Bump total length count. 


'¢ 
1 FS_RCHAR gets a character from the fixed-length string. 
MACRO 
fs_rchar (fs_name,khar) = 
BEGIN 


khar = CHSRCHAR_A (fs_next (fs_name)) 'Read character ard advance pointer. 
fs ,tength (fs_name) =". fs_length (fs “none? - 1; !Decrement remainder count. 


; End of FSPACK.REQ 


Page 


CRUNOFF .SRCJFSPACK. REQ; 1 
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8 
1 


3 
) 


oa 


ah = a. uhone een 15-Sep-1944 33:80 ieg | SSStS DBASE StaGwoee sacSoseuie.reo:1 °% «8s 


>; 21461 0 REQUIRE ‘REQ:GCA.REQ'; ! GCA (General Control Array) definitions 
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GCA.REQ Definitions pertainin the General Control Area (GCA) 
Per TT DENT 056 


PSPS SSLS IIT I TITTIES e icici tii iii iii ii iii iiiitiiiiig) 


° ® 
ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
ie DIGITAL EQUI PRENT _GORPORATION, MAYNARD, MASSACHUSETTS. . 
is ALL RIGHTS RESERV . 
° a 
ie THIS SOFTWARE | 1S FURNT SHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
iw ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICEN SE AND WITH THE ®* 
ie INCLUSION OF THE e ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF may NOT BE PROVIDED OR OTHERWISE MASE AVAILABLE TO ANY * 
ie OTHER PERSON. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
is TRANSFERRED. * 
. wt 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
if AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT + 
is CORPORATION. . 
® © 
it DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
is SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. e 
ie e 

*® 


See RRR A RARER AA AAA RARAA ERA AAA EAA AETEA AKER RRAAAAEEEE 
1 


'e¢ 


DD DDD DDD DDD DDD DADADBDADADAADADDAADAADAADAWDABAWABwA AWB wAB BWM WWW WwWwWwV.zWwWWwWzwW.wWwWzV.wW.zwz 
Se a a a SSS. 
~“ ~ DEPP PAPO AD MMIII SE EE 

w Cao DO OOd OUI OO Doo aren a oS oo ION eNO Ooo OO eRe 
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Be Be Se Se Se Be Se Se Se Ge Fe Ge Se Ge Fe Se Se Ge Se Ge Ge Ge Fe Se Se Se Fe Ge Ge Ge Se Se Se Se Ge Se Se Se Se Ge Se Se Se Se Ge Se Se Se Ge Se Se Se Ge Fe Se Os ee 


FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
i ABSTRACT: 
, Definitions for the GCA (Global Control Area). Initialized by 
DOOPTS from command-line information. 
; ENVIRONMENT: Transportable BLISS 
; AUTHOR : Rich Friday 
CREATION DATE: 1978 
; MODIFIED BY: 
! 026 REM00026 Ray Marshall Lag 
: Added support for aaa a output Lines _ aie by adding 
another macro: GCA_C 
: 025 REM00025 Ray Marshall 16-November-1983 
\] : Added macros so that Ken's SAVRES module can load cells with 
90 ’ them instead of using numeric offsets. They have the string 
4 } ft." within them. 
38 ! 024 KFA00024 Ken Alden 10-0c t-1983 
3e Put gca_cmd_pages in the. right place. 
38 : 023 KFA00023 Ken Alden 06-0c t-1983 
44 Added gca_cmd_pages to stenat the p+ bes qualifier. 


Ba Se Se Se Se Be Se Be Se we Se Se Se Se SH Se Se Se Be FH Se Se Se Se FH Se FH Se Se Se Se Se Se FH Se BESET Se Se Se Se BH Se Oe SESH Se Oe Se SH Se Se SH Se Be ae 
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022 KFA00022 Ke 27-Jul-1983 


n Alden 
Added gca_flag_cmd to SAVE List. 


021 KFA00021 Ken Alden 15-Jul-1983 
Added gca_do_cont_already, gca_do_index_already. 


F 

T 

i] 

' 

' 

] 

' 

' 

} 020 KFA00020 Ken Alden 27-Jun-1983 

Added gca_cref_errcnt to the top eight bits of black_box. 
: 019 KFAGO019 Ken Alden 13-Jun-1983 

: Made use of GCAL45] for flaging /down Line skipping. Used in 
} TOPPAG and USKIPL. 

' 
' 
i] 
' 
1 
' 
i] 
! 
4 
‘ 
i 
4 
4 


018 KAD00018 Keith Dawson 12-May-1983 
Use 16 bits each for page, index, contents, cref counts. 


017 KAD00017 Keith Dawson 21-Mar-1983 
Add bits for LNOQ1 output options. 


016 KFA00016 Ken Alden 16-Mar-1983 
Save/restore now permitted in DSR. 


015 KAD00015 Keith Dawson 07-Mar-1983 
Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 


RO 
gca_com_start GCAC 00 3%, ‘!A CHSPTR to the first character of the 


‘current command (usually it's a °. 
CAC_01 3%, !(SAVEALL) True if user said .AUTOPARAGRAPH 
» !(SAVEALL)True if user said .AUTOSUBTITLE 
AC 3 if. '(SAVEALL) True if user said .AUTOTABLE 


AC 04 dk. '(SAVEALL) True if user said .AUTOJUSTIFY 


| ea >%, !GCA_SARS_ENAB & GCA_BARS_ON. 
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gca_autojust 
gca_f_autojust 


gca_bars 
gca_bars_enab 
gca_bars_on 
gca_ever_bars 
gca_draft_ 
gca_chapt 
gca_twidth_36 
gca_concat 
gca_cmd_msg 
gca_lit_count 
gca_pchax 
gca_tescape_36 


gca_cmd_nbits 
gca_lit. flag 
gca_cad_(stbts 
gca_literal 


)<BAR-_>%, !Confrolléd by .ENABCE/.CTSABLE BAR. 
)<BAR__>%, !Controlled by .BEGIN/.END BAR. 
)<BAR__>%, !True if Ghenge bars ever enabled. 
Tif user said /DEBUG, the character to be used as draft flag (from .VARIABLE 

'True if document contains ghoptere/ append: ces 

i 1OrS~99 terminal wrap width (DSRPLUS only). 

‘True if .NO SP is pending. 
‘Routing code for error messages 
‘If a counted literal, the # of Lines. 
'True a .NUMBER CHAPTER or .NUMBER APPENDIX command has already set up NP 
'TOPS-20 terminal escape characteristics (DSRPLUS only) 


'ULtimate controls for misce Lonpeus functions. 
‘status of .GCA_FLAG_CMD during Literal processing. 
‘ultimate controls for misc functions. 

'True between .LITERAL and .END LITERAL 
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index entries. 

; OR § ee ° Aart et !(SAVEALL)Case rules for 

. R ° 

; o far 

; : : Bee rontencs = GCA g i iNumber of Pable-Siocontents entries written to the .BRN file. 

* R2260 gca_contents_cnt = GCA 433°  inumber of index entries written to the .BRN file. RN fil 

i RE26] gca. ingex.co = GCA 5 J,  inumber of cross-reference entries read from the old wif e. 
: OR 6¢ gca_old_cref_cnt : gta 6 3%; inumber of cross-reference entries written to the .BRN e. 

; R 6 gcaln we = . i h 
; s specified on /PAGE_RANGE switch. 
es Seacektovonts,, = GEAR BA UE ifrue'if! sMpptng®gutpet Secduse’ eta /8AGE RANGE Specs cat fon: 
: ca_skip_ou : he index. 

i. ey gca-debug. index = (GCA : <b, 1>%, jirue if Gepusging ene rapte of convents. 

; R26 gca_debug_ toc = (GARSON C2 1>e, itrue df debugging conditionals (.IF, etc.). 

, ® 69 gca_debug_cnd = tec 9 687434" itrue if want file names listed. ‘ 

; R2270 ge ~debug_ fil. ; (GEA 93)<4;1>%, ‘True if want cross-reference errors flagged int ne. 

R 7 gca-debug”save +s \as $8} een iResoLt Of tase. AUTOSUSTITLE commend. Remembered during .NO AUTOSUBTITLE 
Ree Bares” aR es i, a binary table of gentente 1s wanted. 

. - . i sa © 

; R 73 8 St Pea : set Pace itrue if a’ binesy index is wanted. 

3; R ° 

 Restl 8 wee.s008 = .GCAC, 32,1, !(SAVEALL)Set by .UPPER/LOWER CASE 

3 R sb scent Tag. cnd = ECAC $334, !(SAVEDLast .FLAGS ALL/.NO FLAGS ALL command 

a. “+ fla = GCAC 33 1% 

; R2281 gca_f_flag_cmd GC ° 

: noobe sca, guldth = GCAL 34%, !Physical page width 

; ‘ idth 

; a8 0 gca_twidth . ebcac, oy '(SAVE)Logical page w 

4 cat. = ° 

; R 87 0 ‘ = GCA x ‘True for counted Literals. 

s Ree8e 0 pear ee = GCA 3 %; ‘Primary margin adjust for .NOTE 

¢  Re289 gca_note_prim : %.  iAlternate margin adjust for .NOTE d 

i R2290 0 id a Bo = tec £393) <6 1>%, !True if in the FALSE branch of an .IF command. 

; n2291 gca_skipping = GAL 40 QE,” iCount of attempted ne ative indents, 

; R 398 " gca_xmarg = tab 3 4e° tious stantert a: reel er for index entry NOT in a footnote. 

= si Sea toot n : GCA is i$ next ig a8 rao yt oe oy 8 in the code.) 
R2 96 gca- index fat s Peticge 5 a ae Mie uncanathlonat Lines are for /down. 

. 8 39 gca_down_Tla = (GCAC45))< ob, Tru MAX REQUI ) 
i Ree9B Beeman ceguire §— SEA CP dE, ieantent oxen cd “REQUIRE (usyetly 0, f.0.. not @ .REQUIRE file). 
; R2299 gca_req_depth 2 ee t iy ifrue 1f any errors have been found. 

3 2300 gca._fenter : GCA 29 %,  iCount of Lines of error messages. 

: e301 Seenerr air : GCA 50 1%, Indicates where errors are to be reported. 

4 R gca, = r, . 

; said .KEEP. 

; : gca_keep : Sart et '(SAVE) True if user 

; R230 gca_lt. ne ‘ 

; = trol flags. 

: RS309 gca_io. flags, = ete 850356 kets 1 abt or /NOOUTPUT. 

. - v oO 

: R309 erinat Yon. Log = (GEARSSICoc1>e. wtrue Tf /DECEFLIP. ad 

it fetes EGRESS SESE: rae Bf ZOU ie cnet tga, emesis ie 

: - 3 er ge be = (GCA )<4,4>%, Type of outpu 
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13 
14 gca_lnOl_ital_under = (GCA )<8,1>%, ! For LNO1 output: setsitalics, clearsunderlining. 
15 ca_\n0l_port_land = CSEAESSV} <P 1>%, ! For NOt output: set=portrait, clear=land . 
1 ScavcadBeges = (GCA <16,1>4, i True if /PAGES. Ths ona pare et 
1 gca_diag] = GCAC 53 ]%. ‘!First 16 diagnostic control flags. 
13 Sc andiag2 = tat 3 1% 'Second 16 disgnostic control ‘lags. 
1 gca_xp_ever = scat 2? {i- ‘True if user gave any .XP/.YP commands since last .DX or .PX. 
¢ gca_line_pend = GCAL 56 J%, !Used for OUTHDR in determining if the neader has been processed and output. 
4 gca_black_box = GCAC He 3% 'True if user said /AUTOMATIC. 
5 gca_cref_errcnt = (GCA <6 .8>%, ‘Number of unresolved cross references. 
§ gca_cross_reference = (GCA[58])<0,1>%, !True if user said /CROSS_REFERENCE (it's the default). 
gca_expand_cref = (GCA 2 )<1,1>%, !True if cross references should be expanded. 
8 gca_old_brn_exists = (GCA <2,1>%, !True if an old .BRN file exists and was read. 
9 gca_creT_change = (GCAC58))<5,1>%, !True if any cross-reference changed in the course of this run. 
0 gca_do_cont_already = (GCAL58])<4,1>%, !True if a do contents has been processed in this run. 
3 1 gca_do_index_already= (GCAL58])<5,1>%, !True if a do index has been processed in this run. 
3 ; gca_rerun_count = (GCALS <3 Be ‘Number of times DSRPLUS must be rerun for complete and correct /AUTOMATI 
Z gca_pass_count = (GCAC59])<8,8>%; !Number of the current /AUTOMATIC rerun pass. 
5 LITERAL 
§ gca_size = 64; ! Number of cells in GCA. As of version V04-000 there are 
! 5 free cells. 
3 


jue, fotioutn Literals define where errors are to be reported 
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9 
re ay he bit representation of these Literals is used by DOOPTS. 
3ee report_err_none = 0, ‘Report no error messages 
34 report_err_file = 1, ‘Report in output file only. 
344 report_err_std ¢: ‘Report on standard error og only. 
$02 report_err_both = 3; ‘Report errors in both output file and on standard error device. 
7 ‘Definition of diagnostic control flags. The names may be later changed, 
m4 a aad now, these names will at least provide easy access for initial use. 
350 diagi_0 = (GCA_DIAG1)<0,1>%, 
3) diagi_1 = (GCA_DIAG1)<1,1>%, 
¢ diag! ¢ = bey aE 8 eB 
5 diagi_5 = (GCA_DIAG1)<3,1>%, 
54 diagi_4 = (GCA_DIAG1)<4,1>%, 
55 diagi_5 = (GCA_DIAG1)<5,1>%, 
2¢ diagi_§ = SOG DIAG} 68-128 
‘ diagi_7? = (GCA_DIAG1)<7,1>%, 
58 diag!.8 = be sre h keg 
59 diagi_9 = (GCA_DIAG1)<9,1>% 
diag!-10 = (GCA-DIAGI}<10, 198, 
1 diagi_11 = (GCA_DIAG1)<11,1>%, 
; diag! t¢ = Se ates Beef 
diagi_15 = (GCA_DIAG1)<15,1>2, 
diagi_14 = (GCA_DIAG1)<14,1>2, 
5 diagi_15 = (GCA_DIAG1)<15,1>%; 
MACRO 
3 diagz.0 = (GCA_DIAG <9.1>8. 
diag2e_1 = (GCA_DIAG2)<1,1>%, 
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FLIPRECS == FLIP/RUNOFF record formats 15. ep-1984 23:07:4 VAX-11 Bliss-32 V4.0-7 
TOCHL == HL indicator record 300-1382 $3: 9734 VES SSppAlE: Be CRUNOFE. She DSRLIB.REQ;1 _— (8 


; 2400 0 REQUIRE ‘REQ:GETQSC.REQ’; ! GETQ_... Completion codes 
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TOCHL == HL indicator record 15-Sep-1984 22:52:0 -8255$DUA28: CRUNOFF .SRCJGETQSC.REQ;1 


= 
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! 

} Version: *v04-000' 

PITIIIIILILILILL LLL LLL LLL LLL LLL Le iL iii iT iitiiTiiiiiiiiiii tii 
| 


ie _OPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED, 


!* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
i# ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
't INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
t® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
® 
® 
® 
® 
® 
* 
a 
* 
® 
ie TRANSFERRED. * 
a 
® 
@ 
+ 
® 
os 
we 
® 
tr 
* 


uw 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
~ aepohat ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ITY FOR THE USE OR RELIABILITY OF ITS 


!* DIGITAL ASSUMES NO RESPONSIBIL 
IS NOT SUPPLIED BY DIGITAL. 


I 
t* SOFTWARE ON EQUIPMENT WHICH 


SRR R ERR AREA AE AERA AAAAA AAA ERA AEEREAEA AA TEAEAEAAREREeAAeeAee eee eKee 
' 


++ 
FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 


ABSTRACT: 
Completion codes returned by GETQS 


ENVIRONMENT: Transportable BLISS 
AUTHOR: Rich Friday 
CREATION DATE: 1978 


IN. ILO ROROROPORonoronony 3 2 ee 


SESS oO 
FW OC OONO US WN O0O@ ww WI OOO NOU PO OOO NOME WOODS 


Deh th a ed aandddet at aee ae et eat ee at we kk ee ek tee ee ee ee 


MOMIPONOPONO PoP PyNy 


DD DDD DDD DDD DDD DD VD DADAADAADADADADABDAAAAAADAAAAAWAWAWAWADWDwTwWwWwWwVwAwWIzy 
SOOOCCOCOOOSOQOOCOCOCOCOOCOCOCOSO SSS OCOCSOSOCOOCOCOOOOCOOOOOOOOOOOOOOoOO 


rs MODIFIED BY: 

44 002 KAD00002 Keith Dawson 07-Mar-1983 

44 Global edit of all modules. Updated module names, idents, 
ver copyright dates. Changed require files to BLISS library. 
44 os 

44 

44 LITERAL 

44 GETQS_NORMAL = 0, ‘Everything went ok. 

45 GETQS_BAD = 1, ‘Quoted string ill-formed, etc. 
45 GETQS_TOO_ LONG = ¢: ‘Too many characters. 

$2 GE TQS NONE = 3; 'There was no string to get. 

45 : End of GETQSC.REQ 


Pete ee Ge ee Fe Se Se ee 


Be Be Be Oe Be Be Oe Se Be Se Se Be Oe Ge Se Se Se Se Se Se Ge Se Be SH Se HSH Oe SH OHS Oe Se Oe Se Se Be Oe Oe Se OH Oe Oe Se Be Be ee He 


ta =a Wiser nen 1-00-1984 $3:85:t9 «= VSSSELDGASRStRGnOrE shcSosmute.rea;1 2% (36 


2455 0 REQUIRE ‘REQ:GNCC.REQ'; ! Completion codes returned by GNAME. 


DDD DDD DDD DDBDWD DD DDD ADADAADADADAADADAADAADBDABABABA ABABA ABA WWW wAWwAwWWwWwWwwVwzAwWZzw 
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tnd teh dek- te dee_de-eee_de d et t t t t 


SSBLEARRARES SANS 
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RECS == FLIP/RUNOFF recere formats 18-se sep- 138% 3: gris 


VAX- 
L == HL indicator recor -Sep- "3358 


Version: *v04-000' 


ESSE EESSS ISTE TIT TTT TTT TTT Teer critic irri ici iii iii tii tii iii iii iiiiiiiy 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
.* ALL RIGHTS RESERVED. 


w 

e 

® 

a 

w 

is THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
it ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE, THIS SOFTWARE OR ANY. OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. ® 
ca 

it THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE 
® 

® 

* 

ee 

® 

® 

® 

® 


IC 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMEN 
!* CORPORATION. 


't DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

tt SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

i geeeeereeeereeeeeeerenereteteeeneeeeeneneteteeereeeeerreneeeeeeeeeeeneeneee 
i 

'e¢ 

! FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 


i ABSTRACT: 
Completion codes returned by GNAME. 


' 

1 

! 

] 

ENVIRONMENT: Transportable BLISS 
AUTHOR: Rich Friday 
CREATION DATE: 1978 
MODIFIED BY: 

002 KAD00002 Keith Dawson 07-Mar-1983 
' 


Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 


LITERAL 
GNAME _NORMAL = 01, ' ALL went well. 
GNAME-NO_NAME = ¢: ' Illegall formed or missing name. 
GNAME-TOO_LONG = 03; ! Excess characters have been dropped. 
LITERAL 
GNAME_CC_COUNT = 03; ! Number of condition codes returned 
' by GNAME. 


: End of GNCC.REQ 


Page 93 


=32 V4.0-74 
: RUNOFF . SRCIGNCC.REQ; 1 q) 


2513 0 


FLIPRECS == FLIP/RUNOFF record formats 


TOCHL == HL indicator record 


REQUIRE "REQ:GSLUCC.REQ'; 


GSLU_ 


ISoseo-1964 33:07:49 


«++ Completion codes 


VAX=11 BLi 
_$255$DUA2 


=32 V4.0-7 Pa 
: (RUNOFF. Ske DSRLIB.REQ;1 me 3 


—> 


WN —O OONOUES WN" OOOnNOus 


w 


Pel ak he te et ee 
ODONOUSWN OO 


Teal ah ah dh Ah Ab dh Abedbedb Ad AbAbeed-deb-dub-deb-d-deb-deh d-dh dh Ah Ab Ab Ab Ah Ab Ah A Ab Ab Ah AL AD A Aa Ab Ab Ab Ab ah dh ah dab edb dh dh Sal 
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NO 
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1 
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Version: *v06-000' 


sete ae tenet cat” SEeae Camere 

'e 

ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
RIGHTS RESERVED. 


* 
® 
tt 
1G . 
® 

SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED + 
IN ACCORDANCE WITH THE TERMS (OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. SOFTWARE OR ANY OTHER * 
COPIES THEREOF MAY NOT BE PROVIDED OR in ERUISE MADE AVAILABLE TO ANY 

ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 

4 ® 
is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ie AND SHOULD BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
is CORPORATION, : 
® 

w 

® 

wn 

sd 

ft 


:* DIGITAL ASSUMES NO RESPONS 
'w SOFTWARE ON EQUIPMENT WHIC 


ITY FOR THE USE OR RELIABILITY OF ITS 


BILITY 
IS NOT SUPPLIED BY DIGITAL. 


IBIL 
HIS 


eee RRA REAR AAERAAAAAAAAAAAAAAEAEAAAAAAAAAAEEAAEAAAAAEA AAA e Ree A eee 


++ 
FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 


ABSTRACT: 
Completion codes returned by GSLU. 


ENVIRONMENT: Transportable BLISS 
AUTHOR: Rich Friday 
CREATION DATE: 1978 
MODIFIED BY: 
002 KAD00002 Keith Dawson 07-Mar-1983 


Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 


LITERAL 

GSLU_NORMAL = 01, ‘! ALL went welt. 

GSLU_NONE 2 ¢: ! Missing stri ne 

GSLU_TOO_LONG = 05; ' Excess characters have been dropped. 
LITERAL 


GSLU_CC_COUNT = 03; ! Number of condition codes returned 
! by GSLU. 


: End of GSLUCC.REQ 


SANS 
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HL == HL indicator recor 


IF DSRPLUS 2TH 
RroulRe REQ:GTOKCC REQ"; 


REQUIRE "REQ:HCT.REQ'; 


GT_... Completion codes 


HCT_... (Heading Control Table) @ LAYOUT_... 


25! 


s-32 V4.0-7 


e 
: CRUNOFF . SRC DSRLIB.REQ;1 ree BS 


Ab Ab Ab Ab Ab Ab Ab Ab Ach Ab sb dicb db ih dha dich dich chic heheh ede cd 


SESESE SSIES RETR Sa 


Sesesrescs 
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TOCHL == HL indicator record =3007 1382 $3: got Stent te : CRUNOFF . se HCT.REQ;1 = (1) 
HCT.REQ Definitions for Header Control Tables 

Version: "v04-000' 


ian pang pangiRe ge mies mos 
‘® 

ie COPYRIGHT | (c) 1978, 1980, 1982, 1984 B 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGH $ RESERVED. 


't oe SOFTWARE IS aie UNDER A LICENSE AND MAY BE 
He Y IN ACCORDANCE WITH THE TERMS OF rate LICEN 
Hi TN NCLUSION OF THE ABOVE CoPYRi ct NOTICE. THIS SOFTWARE 
'* COPIES THEREOF MAY wr BE PROVIDED OR OTHERWISE MADE A 
i: Faansrehetee’ NO TITLE TO AND OWNERSHIP OF THE SOFTW 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i; se eokat ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
1 SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


OR 
Al 
AR 


® 
& 
te 
sd 
t 
te 
® 
& 
® 
& 
EREBY * 
* 
& 
& 
® 
® 
® 
* 
® 
& 
a 
® 


Vee Ree ARR AAAAAAAAAAAAAAAAAA ARATE ARATE ARR KAAKAKRARKReKK ee 
' 


'+¢ 
FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 


i ABSTRACT: 
: Definitions pertaining to tables that define how headings, etc. 
are to appear. 

ENVIRONMENT: Transportable BLISS 

AUTHOR: Rich Friday 

! 


i CREATION DATE: 16-October-1980 


5 
FLIPRECS == FLIP/RUNOFF record formats 1S-se -1984 23:07:4 VAX-11 Bt i s-32 V4.0-7 p 9 
tera > tm, Wadicoter penne 13-30b-198e 52:95:18  “S¥skboOassscrombefesncsucr.rea;1 29° (38 
3: R2617 ! 
: 5 613 MODIFIED BY: 
; R26 006 —_KFA00006 AL 10-Jul-1984 
: . ? ; Number_page and NMP. NP ore now part of SAVE (not saveall). 
> R26 i 005 REMO000S Ray Marshall 16-November-1983 
3 R2626 i Added macros so that Ken's SAVRES module can load cells with 
; R2625 i them instead of using numeric offsets. They have the string 
3 . r § ft" within them, 
: R26 8 i 004 FA00004 Alden 16-Mar-1983 
; : ? 2 SAVE/RESTORE now ‘eabied for DSR 
> R263) 003 AD00003 Keith Dawson 07-Mar-1983 
: R26 ¢ i Global edit of all modules. Updated module names, idents, 
; R 6 copyright dates. Changed require files to BLISS library. 
> R2635 — 
; «R26 0 
3; R26 MACRO 
: : 3 : HCT_FIRST_TITLE = HCTC O J%, ! True if headings wanted on ALL pages. 
: R2640 DATE = .HCTC 1 J%, ! (SAVEALL) True if the date is wanted in the subtitle. 
3 R2641 HCT~f_DATE = HCTC 1 3% 
: R b4¢ : HCT“HEADERS = .HCTC 2.J%,  ! (SAVEALL)True if headers are wanted. 
3 ©=R264 HCT_f ee ak = wl 2 We 
3 R2644 0 Hq are AGE = .H cre ; it. ! (SAVE)True if pages are to be numbered. 
3 : ot? 0 HCT_f SABER "PAGE= HCT i, 
; : ei? HCT “00 EVEN = HCTC 4 J%, ! "ODD" or “EVEN''=ness of page. 
: oR ro HCT_HD_ CASE = .HCTEC 5.3%, ! (SAVEALL)Case rules for the words PAGE/INDEX 
; R2650 HCT~f AD CASE = HCTC 5 J% 
3; R2651 HCT-SOBTITLE = .HCTC 6 it, ' (SAVEALL) TRUE if subtitles wanted. 
3 : $36 HCT~ f_ SUBTITLE = HCTC 6 J%, 
: R2654 0 HCT_LAY OUT = HCTC 7 J%, ' The page layout to be used (see below) 
3: R2655 HCT_LAYOUTN = HCT | i, ' Blank lines between text A. page number at bottom. 
3; R $38 HCT_LAYOUT NP = HCT i, ! The page Layout to be used on the next page. 
: . tH HCT-LAYOUTR_NP = HCTC10 J%, ! Same as HCT_LAYOUTN, but. 1s next page. 
: R2659 wer _NMPG_NP = .HCTC11 J%, ! (SAVE) True if pages are to be numbered on the next page. 
i: R3660 TOW NSP NP = CSET 23 on —— 
: UR 662 ZIF DSRPLUS XTHEN 
: - vet ert HCT_TITLE _ALWAYS= HCTC12 3% ! True if titles wanted on ALL pages, including chapter pages. 
: R2665 : 
; 8 006 LITERAL 
3 UR266 ZIF DSRPLUS ZTHEN 
3; UR2668 SIZE = 13; 
:; rR rst ZELSE 
; OR HCT_SIZE = 12; 
3; R267 FI 
3; 8 ore 
3; R267 LITERAL ' Case rules for words PAGE and INDEX 


5 
FLIPRECS == FLIP/RUNOFF record formats 15-Sep-1984 33:97:40 VAX-11 Bl igs s-32 V4.0-74 Page 99 
TOCHL == HL indicator record 15-Sep-1984 22:52:1 -$255$DUA28 : CRUNOFF .SRCJHCT.REQ;1 (2) 
: R2674 HCT_HD_LOWER » 9. ! ,HEADERS LOWER 
; OR of? HCT_HD_UPPER =i, | HEADERS UPPER 
H : ote HCT_HD_MIXED = 2; ! ,HEADERS MIXED 
; OR 278 LITERAL ! Names for apage, layouts 
3; R267 LAYOUT_STANDARD = 0, ! Standard 
; R2680 tAYOUT™ CENTERED = 1, ! Title. subtitle centered at top, page number at bottom. 
; R2681 LAYOUT_FLIP_ODD = 2, i Page number at bottom. Flip title, subtitle at top. 
3; R26 ¢ ! Start with titles right if odd page. 
; rR LAYOUT_RUN_BOTC = 3; i Same as LAYOUT_STANDARD, but include the running page 
3 ! number centered a e bottom o @ page. 
RoGBL i mumb tered at the bottom of th 
; R g MACRO 
3 MR2687 8 HCT_DEFINITI 
; R2688 VECT ORCHCT -SIZEI%; 


FLIPRECS == FLIP/RUNOFF record formats 13-50 Sep-1984 7:4 VAX-11 Bliss-32 V4.0-7 100 
TOCHL == HL indicator record é 307-1382 §3: 95: 23 VES ds0pA B: : CRUNOFF SRC DSRLIB.REQ;1 egy (35 


; 2689 0 REQUIRE ‘REQ:HLC.REQ'; ! HLC_... (Header Level Control) area items 


LIPRECS == FLIP/RUNOFF record formats 18-se se0- 135% $3: gf: $9 VAX 


: 1 Bliss=32 V4. 
TOCHL == HL indicator record -Sep-1 8 igs 0-7 Page 101 
' 
' 


$25 sh$0uA CRUNOFF. Ske HLC.REQ;1 (1) 


MN 


MEW —OOONAOULS WIN" OODONOULSWN—O0O® 


Definitions relating to the HLC (Header Level Control area). 
ENVIRONMENT: Transportable BLISS 
AUTHOR: Rich Friday 
CREATION DATE: 1978 
MODIFIED BY: 
002 KAD00002 Keith Dawson 07-Mar-1983 


690 : H 
ee } Version: *v04-000' : 
oe? lenueeneeeaeeetenereerenteeannennnteeerreterrertrerretrertententnnerentnntens : 
.* * ; 

695 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * : 
a4 iw DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * : 
2 - ALL RIGHTS RESERVED. * $ 
: * : 

639 '* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * : 
'® ONLY IN oh ORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 3 

70) '® INCLUSION HE ABOVE corre iert NOTICE. THIS SOFTWARE OR ANY OTHER * : 
7 § 'e COPIES or MAY NOT B DED OR OTHERWISE MADE AVAILABLE TO ANY * : 
7 '® OTHER PERSON. ITLE fo” AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 3 
20% is TRANSFERRED. , : 
796 ie re INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ; 
707 * SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * $ 
4 is CORPORATION. ¥ F 
. & ° 

71 '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR PEL SABIE ETF OF ITS * : 
4 - SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITA * 3 
: * 3 

1 7 

7 nibasineshdbhaditaunbaebiansiabonesiatedidbauionmanesadanesentaeitanaie : 
{ . 

1 ; 

1 ++ : 

! FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS ; 

ABSTRACT 3 


SN NNN NNN NS 


PIPIPOPOPIPONINPOPINPPoPoPononopngonyd 


ifirst character of each word and leave 
iothers alone. 


z, 
HLC_RUNON = HLCC2) jfapt toe HL number for which to generate 
"=" and Leave no break before next text Line. 


DOOOOOSOOOS QOOOCOOSCOOCOOSOSOSOCOCOOCOSSOSCOCOSCOOOOCOOOOOOOOOOCOOCOOOOOOO 


Se Se Oe Se Se Se Se Se Be Se Se Ss Se Se Ge Fe Ge Sse Ge Se Ge Se Se Fe Se Se Ge Se Fe Fe Se Se Se Se Ge Se Se Fe Se Ge Ge Ge Se Se Se Se Se Se Se Se Se Se Se Fe Se Sean 


7 Global edit of all modules. Updated module names, idents, 
4 copyright dates. Changed require files to BLISS library. 
7 coadiiedll 
7 
7 MACRO 
7 HLC_UPPER = HLCCO) ;Maximun «HL number for which entire text 
t38 . ‘is to be in upper case. 
mR 74 HLC_CAP ="HLCC1) ‘Maximum .HL number for which to capitalize 
MR274 
R2744 
MR2745 


Sees eee 


6 
FLIPRECS == FLIP/RUNOFF record formats 15-se 1984 23:07:4 VAX-11 Bliss-32 V4.0-74 Page 10 
TOCHL == HL indicator record 1 30071 Re 3:93:35 825 $DUAZB : CRUNOFF . SRC HLC.REQ;1 . 95 
; _R2747 i, 
; MR274 HLC_CO_NBITS = HLCC3) jfontret carrycover of underlining/bolding/overstriking 
; nm f : 'from .HL to subtitle. 
: mR f 1 HLC_HEADLC ="HLCL4] 'Leave this many blank Lines after the header. 
; a f § HLC_HEADLT ="HLCC5J !Anticipate this many Lines (include in test page). 
; . f 5 HLC_HEADLB ="HLCL6) 'Skip this many Lines before the header. 
: MRO? 5 HLC_NO_NUMBER = HLC[7J ‘Smallest .HL number for which to leave the header 
; + res 0 : !'unnumbered. 
; ms 4 HLC_HEADSP ="HLCC8) ‘Number of spaces after the section number. 
: MR 166 HLC_CENTER ="HLCC9J ‘Smallest .HL number for which to center the header 
3: R276 3 'Cif header is not run-in). 
: R2764 
3; R2765 LITERAL 
; OR 168 HLC_SIZE = 10; !Number of cells in the HLC. 
; R2767 O 
; _R2768 0 MACRO 
3 . 19) 0 HLC_CO_BLD = (HLC_CO_NBITS)<BLD__> !Carry over bolding to subtitles. 
: mRe77 o HLC_CO_UND = (HLC_CO_ 
: _ rs 8 HLC_CO_OVR = (HLC_CO_NBITS)<OVR__> ‘Carry over overstriking to subtitles. 
: Re775 0 : 
; 76 0 MACRO 
3; MR2777 0 HLC_DEF INITION oa 
; R2778 O VECTORCHLC_SIZEJ%; 
; kR2779 O 
; kR2780 0 : End of HLC.REQ 


NBITS)<UND__> !Carry over underlining to subtitles. 
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: 2781 0 REQUIRE ‘REQ: IFSTK.REQ'; ! IFSTK_... stack for nested .IFs 


FLIPRECS == FLIP/RUNOFF d f t -Sep-* 984 AX-11 iss- 4.0- 
| - recer ormats 15-se Sep 138% $3: gr: $9 VAX Bliss-32 v4.0 Page 1% 


.0-74 
TOCHL == HL indicator recor -Sep- Mees sSp DAR LRGNOEF osc IFSTK.REQ;1 1) 
! 
' 


Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 


; R27 ¢ ' 3 
: : f } Version: *v04-000' : 
: R f 5 PITITITILILILILL LLL LLL LILI LILI ti ii Tii tii ii iiliiiiiiiiiii titi : 
. R 'f # $ 
3 «6Re7E '® cpeye lent Os) 1978, 1980, 1982, 1984 B . ; 
: Rev ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. . ; 
3 : f 9 it ALL RIGHTS” RESERVED. * 3 
; ' * 3 
> kR2791 'e THIS SOFTWARE IS Ag} t oe users A LICENSE AND MAY BE USED AND copree * > 
; R P86 'e roa IN ACCORDANCE WITH THE TER ae OF SUCH Tints AND WITH THE * j 
; R279 'w INCLUSION OF THE ABOVE cre NOTICE. THIS soft WARE OR ANY OTHER * 3 
3: R2794 ie COPIES THEREOF oa oH BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

; R2795 '® OTHER PERSON. TITLE TO aND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

3 : ‘* TRANSFERRED. CI 

3 '® * 

; R2798 O 'e THE eS ies IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

s R2799 O 't AND SHOULD BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

5 : opY 8 - CORPORATION. \~ ® 

° :* . 7 

; Ur oe 0 'w DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

3 : it 8 & SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

° ; Ww 

; R2805 0 'e * 

3 R one 8 ‘hn at antithetical tii 

; (OR ! 

3 R308 0 

; R2809 0 'e¢ 

: . 3i9 8 FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

: OR B1¢ 0 i ABSTRACT 

; : Biz 3 Definitions related to the IF stack, for nested .IF commands. 

; RoBi 8 ENVIRONMENT: Transportable BLISS 

: R 817 0 ; AUTHOR: Rich Friday 

: R B19 | CREATION DATE: 1978 

: R 1 | MODIFIED BY: 

: : § 6 002 KAD00002 Keith Dawson 07-Mar-1983 

; R 5 ; 

: R ; i 

: R 3 

2: R 

:; R 

; rR 

; rR 

; rR 

s R 

; R 

; R 

; OR 


PROPPOPIPOPOPPIPININIPINIPINININPININININININS 


0 09 0d C9 0d 00 Op Cd 0d Cd Cd GD OD 0D Cd OD CD CD CD 


LITERAL 

IFSTK_SIZE = 10, ! Up to 10 levels of .IFs 
1 IFSTK_DEPTH = -1, i Index into the IFSTK + the current depth is saved. 
§ IFSTK_VR = 9. ! Index to VRxxxx information. 

IFSTK_BOOL = ' Logical value A. effect at this time. 

IFSTK_SOURCE = ;. ! The handler_code of the command that made this entry. 
5 IFSTK_REQ_D = 3 ; sREQUIAG separ at which .It must terminate. 

IFSTK-IPAGEN = 4, | Input file page number. 

IFSTK_ISEQN = 5, ' Input file sequence number 
8 IFSTK_FLAG = 6, ! The /DRAFT flag that was interrupted. 


6 
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3 . 3 IFSTK_ELSE_FLG = 7; ! The /DRAFT flag for the .else branch. 

> ROBG1 STRUCTURE 

; OR erst AeKet era ARS bas | B 

: R CXUPVAL#( Ben 471 + B DI ! Leave room for the Oth nesting Level. 
; OR CIFSTACK + (If J eql IFSTK_DEPTH 

: R2865 then 0 

; : $ else ZUPVAL*(1 + 8#] + J) ) ); 

> R2B48 End of IFSTK.REQ 


6 
ua a Wu oe 18-se0-1984 B3:8bt8 | SNS BASES cRGubee sacSosatie.rea;1 2% (99 


2849 0 REQUIRE ‘REQ: INDEX.REQ'; ! $tructures used by the indexing command 


(02.0000 09 CO CD 0D CD 


WO OONOULS WO 


uw 


3 


Et 


‘09 G9 CD CD Cd CD CD CD CD CD: 
SNA 
NOUS WN OO 


Sogo doen SI 


SDOSOOOOOSOOOSOOSOOC OOOO OSOOOSSSOSOOCCSCOOCOCOOOOOOCOOOOOOOOOOOOOOO 


33 


wn 


000 


BSSLEAE 


F 

neh ee LEQ Z8PVAL !Can addresses be packed in a word? 

nateneture of index sags (DECsystem-10/20). 
X_PREV = ; AU iLink to previous item (HALF WORD) 
XTNEXT = 0:18 6,0 ‘Link to next item ( mz=> EOL) (HALF WORD) 
X_SUBX - 'Sub index pointer (HALF WORD) 
X7SHBC . 1168 i. iSub index Level (BYTE) 
X_BARS = 1,2 %,  !Change bar flag (BIT) 


ECS -- FLIP/RUNOFF record formats 15-Sep-1984 63:97:48 VAX s-32 V Page 19 


Bli 7 
- HL indicator record $25 aS bSDUADES *TRONOFES she INDEX.REQ;1 ) 


FLIPR 
TOCHL 
‘ 
i 


; Version: *v04-000' 


te See nee ar aes 
ie 
‘* COPYRIGHT (c) 1978, 1980, 1982, 1984 B 

'* DIGITAL at CORPORATION, MAYNARD. MASSACHUSE‘TS. 
!* ALL RIGHTS RESERVED 


e 
® 
® 
: * 
‘* © 
is THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
is ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
SION OF THE ABOVE COPYRIGHT NOTICE. THIS WARE OR ANY OTHER * 

S THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 

PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ANSFERRED. . 
we 

ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
i® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
ie CORPORATION. * 
® 

® 

& 

» 

oe 

we 


!* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


'‘@ 
See eRRe RRR AAAEAAAAAAAAAAAAAAAAAAAAETERAAAAAAR AR AAATATAARAKARAAARAREAAEEE 


+ 
FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 


ABSTRACT 
Structures for use by the indexing command. 


ENVIRONMENT: Transportable BLISS 
AUTHOR: Rich Friday 
CREATION DATE: 1978 
MODIFIED BY: 
002 KAD00002 Keith Dawson 07-Mar-1983 


Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 


a eee 
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X_REF = 2,0,18,0 % ‘Extra reference pointer (HALF WORD) 
XTTEXT 5 ALM 4; iPointer to text of index item (HALF WORD) 


LITERAL 
X_ENTRY = 3; !Number of words in index entry. 


pftructure of extra reference entry (DECsystem-10/20). 
' 
XX_LINK . 9-418 ,0 ¥ ‘Pointer to additional entries. 


XX_PAGE !Transaction number. 
LITERAL 
XX_ENTRY= 1; Length of extra reference entry. 


ZELSE 
bette re of index entry for -11s, VAXes, and -20s with extended addressing. 


X_PREV = 0,0,2B8PVAL,0 %, 'Link to previous item (WORD) 
X_NEXT = 1,0,2BPVAL,0O %, ‘Link to next item (0 ==> EOL) (WORD) 
_SUBX = 2,0,%BPVAL,0 %, 'Sub index pointer (WORD) 
X_SUBC = 3, 668 ° 'Sub index level (BYTE) 
X_BARS = 3,8,1 , ‘Change bar flag (BIT) 

REF = 4°0.%8PVAL,0 %, ‘Extra reference pointer (WORD) 
X_TEXT = 5,0,%BPVAL,0O 2; !Pointer to text of index item (WORD) 

LITERAL 
X_ENTRY = 6; ‘Number of words in index entry. 

h feructure of extra reference entry (-11s, VAXes, -20 with extended addressing). 
XX_LINK = 0,0,%BPVAL,0 %, 'Pointer to additional entries. 
XX_PAGE = 1,0,%BPVAL,1 %; !Transaction number. 

LITERAL 

- XX_ENTRY= 2; ‘Length of extra reference entry. 

470! datasets 

LITERAL 


DS_X_ENTRY=X_ENTRY 
DS-XR_ENTRY=RX_ENTRY, 
DS"x_STRING=0; 


; End of INDEX.REQ 
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s a2 0 REQUIRE ‘REQ: ]RAC.REQ'; ! IRAC_... structure Macros & Literal 
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TOCHL == HL indicator record 1 7330-1382 33:03:49 “S358 
; IRAC.REQ Macros, literals, and structures defining the IRAC. 
Version: *v04-000' 


leaueeneennennerenneetenenenneenenenentererenterrerteetrertnetnetnennentnntts 
ie 

'* COPYRIGH( (c) 1978, 1980, 1982, 1984 BY 

is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

‘® ALL RIGHTS RESERVED. 


® 

® 

® 

* 

' * 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
. ® 
is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
i® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
i CORPORATION. : 
we 

® 

® 

® 

ie 

® 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
't SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

ie 
i geeeeeeeeteeerereeeeeeeerneenteeeeeeeeeeeeeeeeeeeereeeeeeeeeeeeeeeeeeeeeee 
i 


FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
ABSTRACT: 
aecres. literals, and structures defining the IRAC (Input Record 
rea). 
ENVIRONMENT: Transportable BLISS 
AUTHOR: Rich Friday 


CREATION DATE: 1978 
MODIFIED BY: 
004 KAD00004 Keith Dawson 07-Mar-1983 


Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 


: CRUNOFF ..SRCJIRAC.REQ;1 


IRAC_BARS = (IRACC 00 pa »E, !TRUE if this Line is marked with change bars. 
IRAC~SEQN FLAG = IRACE 01 JX, !TROE if ISEQN is an SOS style Line number. 

IRAC_ISEQK = IRAC § %, ‘!Input line number or sequence number. 

IRAC_IPAGEN = IRAC %, ‘!Input page number. 

IRAC_FSPECP = IRACL 04 J%, !CHSPTR to the file-spec 

IRAC_FSPECC = IRACE 05 JZ, ‘!Number characters in the file-spec 

IRAC_DRAFT_FLG = IRACE 06 J%; !TRUE/FALSE flag for /DRAFT. 


fo fololololo) 


FLIPRECS == FLIP/RUNOFF record formats 
TOCHL == HL indicator record 


LITERAL 
IRAC_SIZE = 7; 
MACRO 
CIRAC_SIZEI%; 
End of IRAC.REG 


ike 


-Sep-1 


-Sep-1 


1986 32:50:35 


‘Number of elements in IRAC. 


VAX- 


$355 


1 Bli 
SDUA2 


=32 V4.0-74 


CRUNOFF.SRCJIRAC.REQ;1 


3019 0 
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FLIPRECS == FLIP/RUNOFF record formats 15-se -1984 23:07:4 VAX- 
TOCHL == HL indicator record 1 33071 38e 33:85:28 VE55$ 
REQUIRE "REQ:KC.REQ'; ! Definition of macros: KCNS, KCS, & TISF 


1 BL 
SDUA 


28! 


-32 V4.0-74 


1 
CRUNOFF..SRCJDSRLIB.REQ; 1 (2 


Page 1 ; 
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WANAWWNAAAA 
FRE 


WWW 
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FLIPRECS == FLIP/RUNOFF record formats 1Bese p-1984 VAX- 

TOCHL -- HL indicator record = ep-19 4 $3: go: 5 $25 54500 $DUA 
' 
i 


Version: *v04-000' 


PETITILITII ITIL LILI LLL LLL LLL LLL LTT LiL Liiii titi iiiiiiiiiiiiiiiiiii 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 
® 
® 
® 
® 
i THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COP * 
i ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE _ AND WITH T » 
it INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TOA . 
iw OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HERE ‘ 
ie TRANSFERRED. * 
ue 

ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHGUT NOTICE * 
iw AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
i CORPORATION. . 
® 

if 

* 

® 

® 

* 


i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


‘e@ 
WOTTITTTITILILILILIL ITLL LLL LLL TitLiiitiiiiiiiiiriiiiiii 
i 


BJE 
OMM 


= 
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FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 


ABSTRACT: 
Defines macros for reading a single character from input. 


ENVIRONMENT: Transportable BLISS 
AUTHOR: Rich Friday 
CREATION DATE: 1978 
MODIFIED BY: 
002 KAD00002 Keith Dawson 07-Mar-1983 


Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 


' KCNS reads a character and advances the cursor. Substitution, as indicated 
by the presence of the Substitute flag, is never performed. 


RACRO 
kcns = 

-fs_length (ira) LEQ 0 

BEGIN 

EXTERNAL LITERA 

rintes : UNSIGNED (8); 


s-32 V 
*TRONOFES she KC.REQ;1 


FLIPRECS == FLIP/RUNOFF record formats 18-se 1984 AX-11 Bliss-32 v4. 
TOC L == HL indicator record Sere ats $3; 3: 48 : Mees sspuAoe CRONOEE SRC KC.REQ;1 ( 


khar = eangess 
fs_length (ira) = =1; 
END 
ELSE 
fs_rchar (ira,khar)) 


! KCS reads a character; A. ls SUBST if the character read is the 
Substitute flag and <BR. on of the Substitute flag is enabled. 


MACRO 
kes(_) = 
REGIN 
EXTERNAL ROUTINE subst; 


cns 
leeeeeneeeeeeesTem orarily turned off 
ad (.khar) 


he ee ee ee wala lolololealoleleololelelelelelelolelelelelololelel ol elo la) 


5 
Bae subst (); 
09 a - temporarily turned off 
Re0R2 H 
R 19 ! TISF returns the value TRUE if KHAR contains the Substitute flag, and 
: 198 } recognition of the Substitute flag is enabled. 
R 104 MACRO 
MR3105 tisf (khar) = 
a 198 (.flgt Coe. flag, flag_enabled) ! Recognition of Substitute flag enabled? 
= 198 -sca_flags ! Recognition of all flags enabled? 
mRst0 (khar EQL .flgt Csub_flag,flag_character])) ! Right character? 
R311 : 
Ra1i8 : End of KC.REQ 


FLIPRECS == FLIP/RUNOFF record formats 
TOCHL == HL indicator record 


DSRPLUS XTHEN 
IRE "REQ:KEYWORD.REQ'; 


REQUIRE ‘REQ:KWITEM.REQ'; 


HESeec19Be 33:07:40 VANS BLSes 
Keyword-table definitions 


Macros t> access command-keyword fields 


=32 V4.0-7 
: CRUNOF F . SRC DSRLIB.REQ; * he 


TERS x MAURER cara formes, HERR GIADA VSNL BuSncHE sO 
' 


Version: *v04-000' 


 caaieaitanionaiaisnadhumaanenenbniehesameaiaainmebiamaiadadiaee tania 
it w 
ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B « 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. : 
ie ALL RIGHTS RESER ’ 
i® ® 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ie Y IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
ie ON NELUSION OF THE ABOVE COPYRIGHT NOTICE. THIS Sof TWARE OR ANY OTHER * 
ie COPIES THEREOF MA Y NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* 
* 
cd 
® 
* 
® 
® 
th 
® 
® 
te 


WANN AWWA NWANA NAA ANNAN 


—> Ps a a a a a a tt ss 


tt TRANSFERRED. 

i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!t CORPORATION, 

!* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
tt SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


See REE AAA AAA AAAAAA TARA TAREE 
' 


i FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
ABSTRACT: Defines macros for fields of key word entries. 
ENVIRONMENT: Transportable BLISS 

! AUTHOR: Rich Friday CREATION DATE: 1978 


DUDS BS BE BE EE BE PAWN IIIIInnononnonfroronorn) 


MEUM —OODNOUN EWN SO OONAUE WN OOONOULS WIN O 


SOSSOSOSSSCOOSCOCOCOCOCOCOOCOOOOO OOO OO OOOCO 
one 


WAWAW AINA Ww 


Pe) a a  — _ —4  _d _g ss os 


Pa 
CRUNOFF . sae KWITEM.REQ;1 


SS ee ee 


DDDDDDAADAADADwD 
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TOCHL == HL indicator record 15-Sep-1984 .$255$DUA28: [RUNOFF .SRCJKWITEM.REQ; 1 (3 
: j MODIFIED BY: 
005 REROOOOS Ron Randall 17-Mar-1983 
Changed iih to iit to better reflect its topnote function. 
004 REROO004 Randall 07-Mar-1983 


Global edit of al? "eeaules. Updated yy names een 
copyr ght dates. Changed require files to BLISS lib 

Changed all <macro pare to kwitem_ cnecre., name> Ms “pueld 
conflict with LP1.B8L 


. 
TOCML == HL indicator recore) ets te Sep-1984 52:50:44 “SSSSSDUAZBSCRUNOFF SRCSKUITEM.REG;1°°%* (35 
ange gon 
: 126 Length of keyword. 
- 176 Item, Length (item) = 
= ire S1Wp x = .item (OJ: VECTOR; 
ais bs 
: ie Address of keyword, CHSPTR. 
> M™R3180 p.word (item) = 
: MRaiee BIND x = .item C0]: VECTOR; 
RRS Wy ere : 
a: 188 tee i 
: 136 Handler code. 
; nSt8s 8 Guiton_hendler_code (item) = item (1) %, 
: 1% 8 Same field does double duty. 
136 8 cwiten_noxtist (item) = item (1) %, 
: 132 8 ALL options collectivally. 
; : ib 0 Gutten_ect fons (item) = item (2) %, 
: 138 TRUE if keyword chain continues. 
; 4 cuiton_choin_cont inves (item) = (item (2]) <8, 1> 
; ‘ 4 0 TRUE if a defined abbreviation. 
: : 34 b pwiten_sbbroutetion (item) = (item (2]) <9, 1> %, 
: : 54 TRUE for commands related to .IF. 
: | oS o qurton ray (item) = item <10, 1> %, 
: 4 19 TRUE if illegal in a footnote. 
; : \§ puiten_ ttf (item) = item <11, 1> %, 
: 4 i TRUE if waiting text to be forced out. 
: : 18 Guiten_de_outnj (item) = item <12, 1> %, 
; : 8 TRUE if command has a numerical argument. 
: . Gui ten_do_getnus (item) = item <13, 1> %, 
: : ; TRUE if illegal in a topnote. 
; R3226 kwitem_iit (item) = item <14, 1> %, 


SS, — 


FLIPRECS == FLIP/RUNOFF . ecord formats 18-5e gep- 
TOCHL == HL indicator record ep- 


1! 
Minimum number of characters for a match. 


kwitem_minimum_match (item) = (item [2]) <0, 8> 2; 
End of KWITEM.REQ 


19be $3:95:¢8 


VAX- 
825 


S$0UA28: 


$-32 ve20 


Pa 
: CRUNOF F eRe KWITEM.REQ;1 


FLIPRECS == FLIP/RUNOFF record formats 13-50 se0-1984 $3: g7: #9 VAX-11 Bliss-32 V4.0-7 Page 130 
TOCHL == HL indicator record “Sep-1984 0:4 .$255$DUA28: [RUNOFF . SRC DSRLIB.REQ;1 (2) 

: 1 

; U Z1F DSRPLU ayeen 

3; U seauie REQ:KWS.REQ': ! Definitions for th O EontEnts git structure 

3; REQUIRE ‘REQ:KW sank Q'; ' Definitions for .SEND CONTENTS k 

: U REQUIRE ‘REQ:KW TER Q'; ! v1 novyers definitions t9r vores <eifitih> 

3 U REQUIRE ‘REQ:KWIDEF.REQ'; ' KW COP... KWSPDM keyyord definitions for $$entities 

3; U BepuiR "REQ: KWXPYP.R Q': ' KWxXS... k eyword definitions for .xXP, .YP, .ENA XP 


40 REQUIRE ‘REQ:LETTER.REQ'; ! Alpha testing and case changing macros 


Global edit of all modules. U yeoted seduie names, idents, 


copyright dates. Changed reaulr es to BLISS library. 


CRO 
upper poster (khar) = 


See er case letter 
(Rhee GEO ZC°A* AND khar Lee’ xeez*o> 
lower hotter A ' See if lower case letter 
(Khar AND khar LEQ %C‘2") 


° 


FLIPRECS == FLIP/RUNOFF record formats 1}-5e -1984 7:4 VAX-11 Bliss-32 V4.0-7 
TOCHL == HL indicator record 30071382 $3: ge: 23 $25 SDUA2B: 
3 R3241 ! 
: . ? Version: *v04-000' 
: : ri iseaneuanenceeerecreetneerentenerenneteerrreretertentrrtrnennetentenetneens 
3 :* & 
: R326 '‘® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
3 «R524 '@ DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 
: . re :* ALL RIGHTS RESERVED. * 
P 4 7 
3; kR3250 '® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
; kR3251 '‘# ONLY IN eet WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
gs a § '® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; R '® COPIES THEREOF ae oy BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 R32546 'w OTHER PERSON. TITLE TO AND UWNERSHIP OF THE SOFTWARE IS HEREBY * 
8 : 5 i TRANSFERRED. * 
3 ; sd 
; rR 37 'e re INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; R3258 'e SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: . B i: CORPORATION. * 
3 ; * 
3; R3261 8 '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3 o¢ 0 : SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ® 
3 ! * 
1 
- ee S encudiagheneaininbeamnedubennbbenteinnnhimelamiamatinmenimadmenieiisinmedsiniienin 
R ! 
Se 
: +4 FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
R3271 i ABSTRACT: 
R327 i Macros to test if a character is an appropriately flavored letter, 
: a and macros to convert between upper and lower case. 
: ie ENVIRONMENT: Transportable BLISS 
: 4 AUTHOR: Rich Friday 
. ie 4 CREATION DATE: 1978 
: MODIFIED BY: 
: 002 KAD00002 Keith Dawson 07-Mar-1983 
Rf i 
Re i 
R i 
R 
R 
AR 
BR 
R 
R 
al 
MA 
R 
R 


: CRUNOF F . SRC LETTER.REQ; i 


e 121 
— (1) 


———$__—____ 


Sete Oe Ge Be Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Sete tease 


so 
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FLIPRECS == FLIP/RUNOFF record formats ! 
TOCHL == HL indicator record 


MACRO 


letter (khar) ' See if an 
} (upper_letter (khar) OR lower. letter (khar) 
upper case (khar = ! Convert to upper 
(Khar + Leta: - %C'a') ats 
lower ay (kha = ! Convert to lower 
(Khar + %C' - ZC°A') 


End of LETTER.REQ 


“ec 3:00 


{ type of letter 


case 


case 


VAX=11 BL 
“B55 


SDUA 


26: 


s-32 V4.0-7 


: CRUNOFF sae LETTER.REQ;1 


ren if 


FLIPRECS == FLIP/RUNOFF record formats 15-5¢ 1984 23:07:4 VAX-11 Bliss-32 V4.0-7 Page 123 
TOCHL == HL indicator record 300-1982 33:95:28 Moet t : CRUNOFF . se DSRLIB.REQ;1 — (33 


s S$si2 0 REQUIRE "REQ:LODEFS.REQ'; ! Literal definitions of LSTOPS operations 


Lee eRe AAA RARAA AREER AAAS 
' 


lee 
FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
ABSTRACT: 


7 
FLIPRECS -- FLIP/RUNOFF record formats 1S-se -1984 23:07:4 VAX-11 Bliss-32 V4.0-74 Page 124 
TOCHL == HL indicator record 1 7300-1382 3:95 5 $25 $DUA2B: CRUNOFF . SRC LODEFS.REQ;1 ° (1) 
1; } LODEFS.REQ Define function Literals for LSTOPS.BLI 
13 Version: *v04-000' 
Hi WITTIITILILILL LLL LILLE LLL LLL LLL LLL TTT Lite Titi iiiiiTiiiiiiiie 
'@ * 
19 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
's DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 
1 ‘t ALL RIGHTS RESERVED. - 
5 it THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
4 '® ONLY IN ACCORDANCE WITH SUCH LICENSE AND WITH THE * 
5 'e {NCLUSION OF THE ABOVE CUPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
8 '‘s COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 i. TRANSFERRED. * 
° & 
0 '‘® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
1 '@ AN SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
¢ = CORPORATION. : 
3 4 it DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
33 5 - SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 
ie he 
3 
3 


This file contains a List of operation codes that control which special 
Listing functions are processed by LSTOPS. 


i 

| 

i 

‘ 
ENVIRONMENT: Transportable BLISS 

AUTHOR: Rich Friday 

CREATION DATE: 1978 

MODIFIED BY: 

i 005 REMO0005S Ray Marshall 17-May-1984 

: Added suppor’ for /DEC_INTERNAL :OUTPUT_LINE_NUMBER. 
Removed LSTOPS_BARS because it is no longer referenced. 
: 004 KAD00004 Keith Dawson 07-Mar-1983 

i 


Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 


PPPS SII 
MEU OOO AUS WN “OD ONOUEWN "OOM 


LITERAL 
LSTOPS_NONE = 0, 'Don't do any at all. 


LSTOPS_ALL 'Do all requested options. 


SOOOOOOCOSOOOOCOSOOOC OOOO SOSOSOSSSOOSOSOSSSOCOOOOOCOOOOOOCOCOOCOOCOOOOOOOO 


Be Se Se Se Se Be Se Ge Se Se Se Se Se Fe Ge Ge Ge Ge Ge Be Ge Se Ge Se FHSS Ge FHSS Ss os Gi Be Ss Ge Se Ss Se Ss Ge Se Se Se Se Se Se Se Se Se Se Se Sse Fee eee ae 
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TOCHL == HL indicator record 1 et 7 33:05:49 VE SSSDpAE: BT CRUNOFE. she LODEFS.REQ;1 . 93 
; R337 = BES tT (BAR_..} + iShenge be rs 
3; R337 1*BPOSIT(CND_") + '/DEBUG: CONDITIONALS 
; R337 1*BPOSIT(ISQ"~) + ' /SEQUEN 
3; R337 1*BPOSIT(OSQ__) + '/DEC_INTERNAL: OUTPUT_LINE_NUMBER 
3 : a 1*BPOSIT(RIT__), i /RIGAT 
: R f ! And for blank Lines: 
: R3378 LSTOPS_NO_ISEQN ‘Everything except / SEQUENCE 
; R3379 = 1*BPOSIT(BAR__) + iC ange ars 
; k3380 T*BPOSIT(CND__) + '/DEBUG: CONDITIONALS 
; OR 0 1*BPOSIT(RIT__); !/RIGHT 


3382 0 


FLIPRECS == FLIP/RUNOFF record formats 1}- co-1984 33:07:49 


TOCHL == HL indicator record 


REQUIRE "REQ:MSG.REQ'; 


- ep- 
Macros used in error messages 


“Base spuA Bi 


s-32 V4.0-74 
CRUNOFF SRC 


Sys ie.rea;1 


Page 


1 
( 


3 


6 


4 
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TOCHL == HL indicator re-ord et 7 $3; of: $8 $25 34500 $D UA2B: : CRUNOFF ..SRCJMSG.REQ;1 35 
1 
i 


cnos 


SGOOOOOOCOOCOOSOOOSC COSCO SSSSSSOOOCOSCOOOOCCOOOOCOCOCOOCOOCOCOOOOOOCOOO 


Version: *v04-000' 


lseneeaneecenaneenenerenteerenerennnnnerererrerteereerentretnentnntnereeenett 
i® 

ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

ie ALL RIGHTS RESERVED. 


'* THIS irre is FURNISHED UNDER A LICENSE AND MAY BE USED AND copies 
'* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH hacen SE AND WITH THE 
!* INCLUSION OF THe ABOVE COPYRIGHT NOTICE. THIS soft ARE OR ANY OTHER 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
& 
® 
ie 
* 
* 
® 
® 
w 
® 
ie TRANSFERRED. ‘ 
® 
® 
ty 
® 
2 
* 
* 
® 
* 
t 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
- oe oka ‘5 il NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


it DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


iw 
S 


RITTIIILIILI ILL LLL LLL LLL LLL LLL LLL LLL LLL LLL ELLE 
i 

e+ 

FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 


ABSTRACT: 
Defines macros used by error-message processing. 


i 

i 

i 

i 

i 

ENVIRONMENT: Transportable BLISS 
AUTHOR: Rich Friday 
i 

! 

i 

i 

i 

i 

' 

i 
be 


FELEESESEES ESS SS 


wd 
S 


' CREATION DATE: 1978 
MODIFIED BY: 
002 KAD00002 Keith Dawson 07-Mar-1983 


Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 


MACRO 
msg (l, s) = 


BEGIN 
EXTERNAL ROUTINE 
filout; 
a ZLENGTH EQL 1 
filout (-1, ZCHARCOUNT(L), CHSPTR(UPLIT(L))) 


= = = = BOO OODOOOOOODODOODODOOO 
SO Ure SOOO NPP UV MODS aR Rome oe hee oe ee 


Bere 
Se 


ZELSE 


TOCHL == WL indicator recor) ormt® its ep-1984 82:55:08 — ‘SS55SDUAZBSCRUNOFFesRconsG.reo;1 "89° {75 


fitout (-1, l, $s) 
END 


ZF I 
q; 
MACRO 
some. (s)= 
: HSPTR ( UPLIT (2STRING(XCHAR(ZCHARCOUNT (s)),8)) ) 


=z 
2D 
, a 


= 

Pa 
PPPS BB PP PPP 
OWONAVLSWN OO DOONOULS WO 


MACRO 
= 
ZCHAR(£0'07'") 


- 
XCHAR(%0'177") 


pea fa lola lalololelalelelololelololololo) 


DDD 2D» 
FEET 


: End of MSG.REQ 


3460 0 


FLIPRECS == FL 
TOCHL == HL in 


: 


P/RUNOF F ee formats 
icator record 


be 


REQUIRE "REQ:NDXRTY.REQ'; ! ,BIX-format binary file record definitions 


se 
18-388: 


—_— 


1384 33:95:29 = “StS BASS StkGnbre secSoseuse.rea:1 2% 135 


SES ee re ck ie A ee a ate a 
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FLIPRECS == FLIP/RUNOFF record formats 1S-se -1984 23:07:4 VAX-11 Bliss-32 V4.0-74 Pp 13 

TOCHL -- HL indicator record 1 ~300n 138% 33:00:48 SS SSDOADBSCRONGER SRCINDXRTY.REQ:1 7” tis 
! 
! 


461 ’ ; 
4 ¢ ; Version: *v04-000' ‘ 
Ab leneenneeneeraneereennentnertentnetentrenrerteeteetertreernetentnenentnnatens : 
'® u : 
'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * : 
? ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * ‘ 
5 be ALL RIGHTS RESERVED. . ‘ 
ts is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * : 
71 :* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * ; 
if :* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * : 
7 :* COPIES THEREOF MAY NOT BE PPOVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ; 
74 1® QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ; 
Ne 1* TRANSFERRED. * ; 
'e * 
fi !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUS NOTICE * 
78 '® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
g * CORPORATION. * 
'@ f 
- !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
ze Ww SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ® 
* 
J 


Lee e eee ERR AAA ARERR AAR RATATAT AAA AAA AAA AAA 
J 


Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 


3 
85 
84 
85 
86 
3487 
3488 '++ 
rt 34 FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
3491 i ABSTRACT: 
3138 ! This file contains Literals and macros defining Index record groups 
$002 } found in either a .BIX or .BRN file. 
$482 ENVIRONMENT: Transportable BLISS 
397 ! AUTHOR: J.P. Kellerman 
34 CREATION DATE: January 1982 
MODIFIED BY: 
003 KAD00003 Keith Dawson 07-Mar-1983 
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PAPAIN 


SS 


An Index Record Group consists of an identification code stored 
in the lower half of the first fullword followed by zero or more 
tullwords which make up the rest of the record group. 


LITE 


er 


RAL ‘Index Record Group Identification codes are: 
NEW SEQUENCE = 1, ' New File Group. 

INDEX_XTN = 2, ! Page Number Transaction Record Group. 
INDEX_ENTRY = 3, ! Index Entry Record Group. 
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PRECS == FLIP/RUNOFF record formats 
HL == HL indicator record 
INDEX_ATTRIBUTES = 4; ! me 
i “(BRN f 


End of NDXRTY.REQ 
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Dee 


RECS == FLIP/RUNOFF record formats 
L == HL indicator record 


ibs 


Sep-19B4 92:50:68 


VAX=-11 Bias 


"$255SDUA28 


THEN 
Q:NDXXPL.REQ'; ! ,XPLUS attribute-structure record definitions 


REQUIRE ‘REQ:NMLST.REQ'; ! NMLST 


aw***e NM_ 


«ee, and NUMBER_LIST 


mo 


132 


OSRCSDSRLIB. REQ; Ot = (35 
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TOCHL == HL indicator record 1 ~300 71382 33:07:49 SaSESDOADBSCRONSER sac NMLST.REQ; 14 mt (1) 
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Version: *v04-000' 


le Re eRe R ERA AA AAA AAAAAEAAAAAAAERAAAAAHEATAEAA ETE THK THEE eee Ae eee AeA ee 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
'* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


i® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
'* ONLY IN ACCORDANCE WITH E SUCH LICENSE AND WITH THE 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
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:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
i. PannsreRaten” NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJE 
AND SHOULD NOT BE CONSTRUED AS A COMM 
ie CORPORATION, 


i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


O CHANGE WITHOUT NOTI 
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ITMENT BY DIGITAL EQUIPMENT 
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'+¢ 
FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 


ABSTRACT: 
Definitions pertaining to Lists of numbers picked up by GLNM. 


ENVIRONMENT: Transportable BLISS 
AUTHOR: Rich Friday 
CREATION DATE: 1978 
MODIFIED BY: 
002 KAD00002 Keith Dawson 07-Mar-1983 


Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 
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SHISAFERLS 


LITERAL 
OUNT 1 'The number of numbers found. 
NMLST VALUE = § 'The values of the numbers. 


‘what the numbers looked Like. 


SSN NSO 


DONOULS WIN —O 


>] 


LITERAL 
NMLST_MAXSIZE = 40; 


STRUCTURE 
NUMBER_LISTCI,Attribute;Length=NMLST_MAXSIZE) = 


QPP PVP PUP PUDU PVPS DUP SVSUIV SUIS SUIUSUSUST IIS ISISISISISUSISIOSUSISISIOSIOSTOSIS ISIS 


RaN=S 
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CZUPVAL*( 2*Llength + 1 )J 
(1 iy aavtr toute eql MLST__COUNT 
of HUMBER LIST 
(NUMBER_LIST + XUPVAL*1 
(if Attr bute eal NMLST__VALUE 
then ZUPVAL*( 
else TUPVAL® (I - 1+ Length) ))); 


Names for NMLST_DESCRIPT things. 


LITERAL 
NULL = 0, ! No number given. 
NM =UNSIGNED St. i Number was unsigned. 
NM_PLUS = ¢: i A '+" preceeded the number. 
NM_MINUS = 3, i A rs -" preceeded the number. 
NM_BAD = 4; i The number was in error. 


ARR OOS VEAP CIO LOO 


GOCGCOCOCCCOOCOOOOCCO fwn 90 


CRO 
NMLST_ Song 


Se Se Ge Se Fe Se Se Ge Ge Ge Se Se Se Se Se Se Se Se Ge See Se seve Seas 


= NMLST CO,NMLST_ ~COUNT IE 
0 NMLSTIVALUE (1) = NMLST CI.NMLST~-VALUEJ% 
$008 NMLST~ ~DESCR (1) = NMLST CI,NMLST__DESCRI2; 
3610 ! End of NMLST.REQ 
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FOCHE -- HL indicator record 1 735071382 33:90:28 VES esp UA B TaoNoEE SRCSDSALIB.REQ:1 = (3) 
5 ww 6 REQUIRE ‘REQ:NUMPRM.REQ'; ! NUM_... values returned from GETNUM 
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TOCHL == HL indicator record 1 ~3007 138% 35:05:49 VE SSSDUADSSCROMOFE SRCINUMPRN.REQ: 1 . (1) 
1 ! 
1 Version: *v04-000' 
! i eeeeeeeeererereaeeeeeereereeeeeeeeeeeeeereererreeeeeeeteeeeeeeeeeeeeeeeeeeese 
'@ 
1 '‘® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
1 'e DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 
1 is ALL RIGHTS RESERVED. 
ie THI] FTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
‘e ON H THE 


® 

v 

® 

et 

© 

7 
ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WIT : 
OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
ie TRANSFERRED. . 
! ® 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
i# AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
ie CORPORATION. . 
t 

® 

* 

& 

& 

% 


'* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
't SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

i 
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9 S++ 
3e4t FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
‘ i ABSTRACT: 
Seti : This data structure is used to save results picked up by GETNUM. 
3645 : ENVIRONMENT: Transportable BLISS 
3647 AUTHOR: Rich Friday 
3645 CREATION DATE: 1978 
3691 : MODIFIED BY: 
328 i 002 KAD00002 Keith Dawson 07-Mar-1983 
3654 ' Global edit of all modules. Updated module names, idents, 
2? copyright dates. Changed require files to BLISS library. 
9 fed 
35 
5 MACRO 
numprm_define = 
; VECTOR (4) 
num_result = ‘Completion code returned by 6G THUR. 
: 5 numprm (0) 'See GETNUM.BL! for a description. 
R366 . 
MR3668 num_value = 


ONAN NNSA 
Ooo 


FLIP 
TOCH 
numprm (1) 


num_sign = 
prm C2 


num_length = 
numprm (3) 
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-Sep-1 
'The value of the number processed. 


TRUE if the number was signed. 


‘Number of digits scanned. 


End of NUMPRM.REQ 
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TOCHL == HL indicator record -Sep-1 RUNOFF. 
; 3681 0 REQUIRE ‘REQ:OPDEV.REQ'; ! OP_DEV_... Literals: type of output device 


SRCSDSRLIB.REQ:1"°%° (3% 
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TOCHL == HL indicator record 908-1 3h $3: 9% te Ves ssn pales 8: CRUNOFE . Ske OPDEV.REQ;1 ° (1) 
6 § ! 
? Z } Version: *v04-000' 
5 i eee eeeeeeeeeeeeeeeeeeeeeHeeeeeeeneenenereerereeereeeeteeeeeeeeeeeeeeeeeeeee 
'@ 


'* COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
i* ALL RIGHTS RESERVED. 

:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND M 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUC 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS 
'* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWI 
:* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF 


uy 
® 
* 
& 
* 
& 
® 
cd 
* 
® 
ie TRANSFERRED. * 
® 
* 
¢ 
® 
i 
® 
* 
wt 
® 
® 


AAO 
SSe 


'@ 
!* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
- Olpokat itn. " NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


wWOOOOOOO 


ONAULE WN — 


:* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
. SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
it 


ARaN=SS 
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3708 
3709 14+ 
H 19 FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
3 \§ i ABSTRACT: 
371 ' Defines the Literals used to determine what the target device for the 
; 1 output file is. 
3716 ‘ The field these Literals are used Sy (OP_DEVICE) is found in GCA. 
3717 ! Its initial value is captured oy te tae f LI, put into RNOMAC, and picked 
$718 up later by DOOPTS to be put into 
3 ? ENVIRONMENT: Transportable BLISS 
37 g AUTHOR: Ray Marshall 
31 3 CREATION DATE: 7-January-1983 
: g MODIFIED BY: 
728 i 004 KAD00004 Keith Dawson 11-May-1983 
3 ; Made FLIP output stream-format (with <cr><lf>). 
731 ! 003 KAD00003 Keith Dawson 23-Mar-1983 
He ! Added support or LNOIE; put F ait here as an output device 
, : type (instead of the bit GcACF P). 
735 ' 002 KAD00002 Keith Dawson 07-Mar-1 
7 : Global edit of all modules. U gdated tM py names, idents, 
4 i copyright dates. Changed requir les to BLISS library. 
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; OR ye !—< 

; «R37 

3; «6R35746 SLITERAL j Ovyput device is a.. 

> R374 op_dev_line_printer = Q. e-printer (default). 

3s R374 op_dev_first “= %number( xposdistinc tp 

; R374 op.d ev 4 ; lo = SDISTINCT, Pipblonstyte terminal. 

; R3745 v_flip = $DISTINCT, ‘Electronic Book" output. 

ass & a6 op. ob et *strean output = tnunber ($up084it ine 

s R374 op. gv ve 100 = $DISTINCT, ! O’terminal. 

3 «R374 dev- tnot = SDISTINCT, LNO1 Laser printer. 

; «R374 oo “dev_\n0le = $DISTINCT, ! European-style LNO1. 

: : f : op_dev_last = Xnumber ($xpo$distinct); 

3; R37 § MACRO 

3 a f ? op. dev_write_output_line = 

3; MR3755 iNOTE: the poh levine code depends on the output-device values in 

; MR37 $ : OPDEV.REQ: spec ifically, on the fact that the stream-output, 

: R375 i Seaunresekbe s devices (LP and Diablo) have device numbers 

; MR3758 (OO ! smaller than those of the escape-sequence-emphasis devices (LNO1, 
; R3759 (0 : VT100). It is coded this way in the interest of efficiency: only’ 
3; ™R3760 0 ! one fetch and compare is needed. 

3; MR3761 O BEGIN 

3 - te 8 IF .gca_op_dev LEQ op_dev_stream_output 

3 pt the] . ee clh (clh_write_out) ! LP and Diablo (STREAM) devices. 

3 mee . . clh (clh_out_nocrl f) ' LNO1 and VT100 (non-STREAM) devices. 
; R3768 O q; 

$ 0 ! End of OPDEV.REQ 


“oO 


FLIPRECS == FLIP/RUNOFF record formats 1§-se Sep-19 "855 1 te s-32 V4.0-74 P 1 
TOCHL == HL indicator record ~3007 138 $3 gi $25 SDUA2B : CRUNOFF ..SRCJDSRLIB.REQ;1 ” ( 


; S77 @ REQUIRE ‘REQ:OQUTOPT.REQ'; ! QUTOPT_... output control vector dl enente 


FLIPRECS == FLIP/RUNOFF record formats 13-se “19 7:4 VAX-11 Bliss-32 V4.0-7 Page 14 
TOCHL == HL indicator record 300-1 3B $3: oF: VS SSSSDUALES : CRUNOFF . sre OUTOPT.REQ;1 a (tS 
; R377) / : 
: 4 118 Version: *v64-000' : 
: : ore Sr tae a eae ee : 
5 '® “ 3 
; R Te ‘® COPYRIGHT (c) 1978, 1980, 1982, 1984 B . 3 
; R377 '‘* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. ® : 
3 ore :* ALL RIGHTS RESERVED. & F 
3 ! * F 
; kR3780 '® THIS sor Tuane IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ; 
; =R3781 '® ONLY IN Ag £0 RDANCE WITH THE TERMS OF SUCH LICENSE wy uite THE * 5 
; «R37 ¢ '® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFT WARE OR OTHER * 3 
3; «RS? 'e COPIES ONEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY a 3 
3; «R37 'w OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * é 
3 : f 5 9 r TRANSFERRED. * $ 
: ! * 3 
: OR a 0 '‘® THE gt type F IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ; 
; R3788 'w AND SHOULD BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 3 
: : 4 0 i CORPORATION.” @ $ 
: ! * 3 
3 R3791 6 '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS ® $ 
5 st 10k 9 i. SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ; 
3 ’ . 3 
3 Rares 0 '® * 3 
3 ot 104 0 ‘aetna hii tid nena atalino D4 
; OR ! ; 
$s R 738 3 
; k3798 O 'e¢ 3 
: tea FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS ; 
> R3801 i ABSTRACT ; 
; tr S Options specifying final output generation. 5 
: R3804 0 i ENVIRONMENT: Transportable BLISS : 
; R3805 ' 3 
3 Rees ! AUTHOR: Rich Friday : 
; R380 ! 3 
; kR3808 ! CREATION DATE: 1978 é 
; R3809 ! 3 
: R3810 i MODIFIED BY: : 
F R381¢ i 003 KAD00003 Keith Dawson 07-Mar-1983 ; 
; R3815 0 ! Global edit of all modules. Updated module names, idents, 3 
; : \ 6 copyright dates. Changed require files to BLISS library. : 
g vw ; Py 
; R381 leo 3 
: OR 13 : 
; OR \8 CRO : 
: a ) outopt_und_char = outopt(0) ! Character to be used for underlining. : 
; +. 1 5 outopt_und_nosp = outopt(1) ! True if the underlining character is non-spacing. 3 
: MR ‘ outopt_und_sep = outopt(2) ' True if underlining is to be done by : 
3 4 3 : ! putting OUTOPT_UND_CHAR on the next “Line. : 
; arth § outopt back = outopt(3) ! True if the backspace character is to be used. ; 
| 
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; MR Gutogt over = outopt(4) ! TRUE if should do special functions 
; : ° ! by overprinting the same Line. 

5 * eutagt pie = outopt(5] ! Amount of overstriking to be done when bolding. 
: R ‘ : 

; R LITERAL 

3 : 5 outopt_size = 6; 

: R38 CRO 

; MR35838 outeps defin 

: ™ B20 ECTTOR Coutopt. size] 

> R3B41 ; 

; R3842 : End of OUTOPT.REQ 
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>; 3843 0 REQUIRE ‘REQ:PASS.REQ'; ! PASS_..., EMPH_... definitions for final output 
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Version: *v04-000' 


BPRS SE ESET T ETT T TTT TTT PTT TTT Tree rc creer circ icici cri iii iii iii titi iitiii. 


‘@ 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 
'‘® ALL RIGHTS RESERVED. 


e 
ra 
& 
'® ® 
'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE * 
'e LY IN ACCORDANCE WITH THE TERMS OF * 
't INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS S$ * 
'‘® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE * 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF TH * 
is TRANSFERRED. * 
w 
'® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
't AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
'® CORPORATION. * 
® 
ea 
a 
® 
* 
ca 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Vee eR ARERR RAAAAAAAAA RARER ARATE AAAAAEAAAAAA AAA TAREE 
3 


} FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

! ABSTRACT: 

Literals for counting output passes in LOUT1. 
ENVIRONMENT: Transportable BLISS 

: AUTHOR: Keith Dawson 

CREATION DATE: March 1983 

MODIFIED BY: 

001 KAD00001 Keith Dawson 22-Mar-1983 


+. 


If no emphasis is present, the Line is put out in 1 pass. This is also the 
case if we are generating VT100 output or FLIP output, or if the user said 
/BACKSPACE. If none of these cases applies, then multiple passes are needed 
to generate the built-up output Line. 


If any emphasis is present, the emphasized copies of the line are put out 
first; the “‘real,"* entire Line is generated last. In this case, pass 1 
serves to set up the later passes, but does not produce output. 


pass 1 = calculate pass 2 = bold 
pass 3 - underline pass 4 - bold-underline 
pass 5 = overstrike pass 6 - bold-overstrike 


s-32 V4.0-74 
: CRUNOFF .SRCJPASS.REQ;1 
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' 
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pass 7 = output Line, if any emphasis was present 


LITERAL 
pass_setup =_1, 
pass_bold = 2, 
pass_underline= 
pass_bold_un erling=4, 
pass_overstrike = 5, 
pass_bold_overstrike = 6, 
pass_real_text = 7; 


+ 


Arrangement of bits in EMPHASIS BITS: 


emphasized_char 
pronteus, saphastae6 f 


/ ye \ 
/ V/ \ 


Fewer ece foe eeae foe ea poser fpforeotp¢orscne} 
[Mees 6 £3 ett -4 ' 
$e ane oato ; made . om pom H ooo! wofooons 


Previous:Under Bold 
Current: Under Bold 


MACRO 
emph_current_bold = ! TRUE if this character is bolded. 
emphasis_bits<1,1> 
emph_current_under ine = ! TRUE if this character is underlined. 


emphasis_bits<2,1> 


emph_current_emphas i ed = ! Both bolding and underlining together. 
emphasis_bits<1,2> 


emph_previous bold = ! TRUE if last character output was bolded. 
emphasis_Bits<3,1> 

emph_previous underline = ! TRUE if last character output was underlined. 
émphasis_Bits<4,1> 

emph_previous enphasized = ! Both bits together. 
éemphasis_Bits<3,2> 


: End of PASS.REQ 
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; 3952 0 REQUIRE ‘REQ:PDT.REQ'; ! PDT_... paragraph definition items 
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FLIPRECS == FLIP/RUNOFF record formats 13-5e $ep-1984 23:07:4 

TOCHL == HL indicator record Haars 1 33:05:69 
1 
1 


Version: *v04-000' 


ASSP SE SST IS IIT TTT TTT TTT TT TTT Tri rire rir irri irri titi i iii iii iii iii ii iiiiiiiey 


'® * 
'® COPYRIGHT (c) 1978, 1980, 1982, 1984 8 * 
'‘® DIGITAL EQUIPMENT eGORPORATION, MAYNARD. MASSACHUSETTS. * 
:* ALL RIGHTS RESERVE * 
'® tt 
'e me SOFTWARE IS gt UNDER A LICENSE AND MAY BE USED AND corrte * 
'® ONLY IN ACCORDANCE WITH THE Po OF SUCH LICENSE ow > a THE * 
'® INCLUSION OF THE ABOVE SR AMTNER” TICE. THIS SOF TWA RE OR OTHER * 
'e COPIES THEREOF i NOT BE PROVIDED OR BTHERWI SE MADE AVAILABLE TO ANY * 
'w OTHER PERSON. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
'‘@ TRANSFERRED. * 
a 
's THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
'® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
'® CORPORATION. * 
t 
® 
® 
* 
oT 
e 


ie DIGITAL ASSUMES NO RESPONS Bl 


IBILIT 
!# SOFTWARE ON EQUIPMENT WHICH 


FOR THE USE OR RELIABILITY OF ITS 


LITY 
S NOT SUPPLIED BY DIGITAL. 


VeRO Re AAAA REAR AAAAAAAAAEAAAAAAEAAAE AEH AAAEAK EKER eReKKeeeeeees 
' 


'e¢ 
! FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 


{| ABSTRA cT 
Items that define a paragraph. 


i ENVIRONMENT: Transportable BLISS 


i AUTHOR: Rich Friday 
i CREATION DATE: 1978 
{| MODIFIED BY: 
002 KAD00002 Keith Dawson 07-Mar-1983 


Global edit of all modules. U Updated module names, idents, 
copyright dates. Changed requ? les to BLISS library. 


MACRO 
pdt_indent = pdt (00) ! Add this to .SCA_RM at start of a paragraph. 
pdt_skip = pdt (01) ! Skip this many Lines before starting. 
pdt_tp = pdt (02) ' Do a test page before starting a paragraph. 
LITERAL 


pdt_size = 03; 


1 Bliss-32 V4.0-74 
ent th 8: CRUNOF# . SRC PDT.REQ;1 
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TOCHL == HL indicator recor 


US Hane taceegre formers TEACH ETSY EAL BUNHB Tor scann "Hf 


ion = 
(pdt_size] 


End of PDT.REQ 


4017 0 


FLIPRECS == FLIP/RUNOFF record formats 


TOCHL == HL indicator record 


REQUIRE ‘REQ:PHDEF.REQ'; 


PHAN_... 


1Soseoct9Rs 35:07:49 


macros & Literal 


VAX- 
“$25 


1 BL 
SDUA 


28: 


s-32 V4.0-7 Pa 
: CRUNOFF . Ske DSRLIB.REQ;1 


cococn 


or 


ee eee 
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FLIPRECS == FLIP/RUNOFF record formats 13-se $ep-1984 VAX-11 Bliss-32 V4.0-7 
TOCHL == HL indicator record $007 1382 33:07 VES SSDDASRSLRONOFE She PHDEF .REQ;1 ree 3} 
] 


. ! PHDEF .REQ Definitions having to do with the page handler 
RG | Version: *v04-000' 
R4 i eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeereeeeeeeeeeeeeceeeeeeneneeeeeeeeeeee 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


Hed noe SOF TWARE 4 FURNISHED UNDER A LICENSE AND MA 
ed Y IN. ACCORDANCE WITH THE TERMS OF SUCH i 
7 tly OF THE E 4 


a 

® 

® 

® 

® 

® 

® 

. . * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE * 
iw THER PERSON. NO TITLE T AND OWNERSHIP OF THE * 
ie TRANSFERRED. * 
® 

i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
*® 

® 

* 

w 

® 

® 

® 

® 


:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!® CORPORATION. 


't DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


lee 


FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 


i ABSTRACT: 

This require file defines the structure used to control Be g¢ formatting. 

The basic structure name is PHAN. A macro herein (PHAN_DEFINITION) is used 

when germane the structure as an external. Then, the Other macros defined 
r 


by this require file are used to access the PHAN structure. 


This require file also defines any literals related to page formatting. 


' 
] 
{ 
i] 
i] 
1 
1 
] 
J eeaae NOTE seeee 

: The items PHAN_LCHAR and PHAN_RCHAR are not yet supported by any routines. 
ENVIRONMENT: Transportable BLISS 

AUTHOR: Rich Friday 

CREATION DATE: 16-October-1980 

! MODIFIED BY: 

i 

' 

1 

i] 

' 

! 

' 


007 REMO00007 Ray Marshall 16-Nov-1983 
For the fields that need .PHAN(##) references, also added macros 
witeut the preceding dot so SAVRES can load them. These new 
fie.ds have similar names but with “_f_"’ within them. 


006 FA00006 Alden 16-Mar-1983 
fetended SAVE/RESTORE to "DSR. 
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FLIPRECS == FLIP/RUNOFF record formats 15-sep-1984 $3: 07:8 veyed Bt igs 32 V4.0-74 Page 152 
TOCHL == HL indicator record 15-Sep-1984 22:54:0 -8255$DUA28 : CRUNOF F ..SRC JPHDEF .REQ; 1 (1) 
; R4075 : 
3: RG 8 ' 005 KAD00005 Keith Dawson 07-Mar-1983 
; R407 ; beat | edit of all modules. Update module names, idents, 
3 a 4: copyright dates. Changed require files to BLISS library. 
> R4080 ian 
> R408) 
: pales MACRO 
: set's PHAN_TOP_PAGE = PHANCO00)%, 'True, if at top of page. * 
: R4085 0 PHAN_LLINES = sPHANCOIIX, '(SAVE)Logical Lines per page. 
: arte 8 PHAN_f_LLINES = PHAN(O1)%, '(SAVE)Logical Lines per page. 
: R4088 PHAN_PLINES = PHAN : %, 'Physical tines per page. 
; R4089 PHAN_LINES TP = PHANLO35J32, ‘Logical Lines so far. 
; R4090 PHAN_F IGURE = PHANLO4)%, ‘Count of deferred figure Lines 
; R4091 PHAN_RIGHT = PHAN(OSJ2, '‘Amount to shift text right on page. 
3 aR 8 PHAN_TOP_FIRST = PHANLO6)%, 'TRUE if top of first page 
: R46094 0 PHAN_HEADER = sPHANt O75. '(SAVEALL) TRUE if headers wanied on pages « 
$ neoat 8 PHAN_f_HEADER = PHAN(O7)Z, '(SAVEALL) TRUE if headers wanted on pages * 
; R4097 0 PHAN_FORM_ PEND = PHAN[O8]%, = !NONZERO if a form feed is waiting. * 
: sptd4 8 PHAN_SLINES = PHANLO9J%, 'Number of spooled Lines per page 
: R4100 8 PHAN_PAGING = .PHANC10]%, '(SAVEALL) TRUE if .PAGING was said or implied. * 
s aed 4 PHAN_f_PAGING = PHAN(10)%, 'CSAVEALL) TRUE if .PAGING was said or implied. * 
: Rei08 0 PHAN_CMD_PAGING = PHAN 1125. 'TRUE if /NOPAGING was not said or implied. * 
; R4104 0 PHAN_DOWN = PHAN \§ i, ‘Move output down this many Lines. 
; R4105 0 PHAN_SIMULATE = PHANL13)%, 'TRUE if top of page should be done 
> R4106 0 ‘with blank Lines rather than a FF. * 
; R4107 0 PHAN_BOTTOM = PHAN(14]%, ‘Number of filled Lines when at 
; R4108 0 ‘bottom of page. 
3; R4109 0 PHAN_PAUSE = PHAN 132k. 'TRUE if the user said /PAUSE. * 
; R4110 0 PHAN_LCHAR = PHANL16]%, ‘Character to the left of the page number. 
3 R4111 0 PHAN_RCHAR = PHAN Hate ‘Character to the right of the page number. 
: meg 0 PHAN_DEPTH = PHAN(18)3%; 'TRUE if a long .PAGE SIZE can generate 
; R4113 0 ‘more than one FF. * 
: RGIS 0 MACRO 
> MR4116 0 PHAN_DEFINITION = 
; eerie VECTORC19J2; 
: Reli9 LITERAL 
3 R4120 PHAN_MIN_PAGE_LENGTH = 13; 'No output page may be defined in any 
3 R4121 0 ‘way to be smaller then this. 
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TOCHL == HL indicator record =3071 382 33:07:29 Ves ssn pale: : CRUNOFF. sre DSRLIB.REQ;1 me ( 


; 4122 0 REQUIRE ‘REQ:RNOMAC.REQ'; ! RNO$... command Line table items 


53 
2) 
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—_ 
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FLIPRECS == FLIP/RUNOFF record formats 15-50 -1984 7:4 VAX-11 Bliss-32 V4.0-74 4 
TOCHL == HL indicator record 305-1382 $3: ee -8255$DUA2 ?LRUNOFF . SRC RNOMAC .REQ; 1 she (33 
! 

Version: *v04-000' 


‘Ypecenagasener enomremnresaritcmieucmeesn ciety eee 
it 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 

'® DIGITAL EQUIPMENT CORPORATION, ” MAYNARD. MASSACHUSETTS. 
'* ALL RIGHTS RESERVED 


*& 

& 

® 

® 

® 

* 

is THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED + 
ir ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE © 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES, THEREOF MAY NOT BE PROVIDED OR OTHERUISE MADE AVAILABLE TO ANY © 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED, « 
® 

& 

a 

ad 

& 

® 

e 

& 

® 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
os sepPOkat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Lee REE E REE AAA ARATE EEE ERAS 
' 


'++ 
} FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 


i ABSTRACT: 
: RUNOFF Command Information. Initialized by the command Line interface 
and picked up for distribution by DOOPTS. 


i ENVIRONMENT: Transportable BLISS 
i AUTHOR: Rich Friday 

i CREATION DATE: 1978 

i MODIFIED BY: 


012 REM00012 Marshall 5-December-1983 
Added RNO$V_LNO1 RObAD to indicate that one wishes to load 


fonts before oti this file on an LNO1. 


011 REMO0011 Rex Marshall ‘Ste -1983 
Added bit RNOSV_LNO1_HEADER to sup ppor disabling the font 
control header information from being put into an .LN1 output 
e. 


010 KAD000 Keith Daw -Jun-1983 
Added bits RNOSV_S_RIGHT yor RNOSV_S_DOWN to tell if the 
qualifiers were a eattetety given. ~ 


009 KAD00009 Keith Dawson 22-Mar-1983 
Renamed LNO1 ital c/underline and portrait/landscape bits, 


© Be Se Se Se Be Se Se Ge Se Se Ge Se Ge Se Ge Se Fe Se Ge Se Se Se Ge + Se Se Se Se Se Se FH Se Se FH Se SH Ss Se Ge Se SH Se Se Se Se Se Se ese Se Se FHS Se Se ee 


DDDwD 
be ae ee te ee 


REG LHS VS NOM PW OOO NAN PWV OOS VERA EWN ODO GOR OOD SOR RID 
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TOCHL == HL indicator record eet 7 $3: ee "$255$DUA28::L CRUNOFF .SRCJRNOMAC.REQ; 1 — (1) | 

: in order to reflect he defayit valyes. | ; 
; Got rid of RNOSV_FLIP bit, in favor of (.gca_op_dev | ‘ 
EQL cp_dev_flip). ‘ 
i 008 — KAD00008 Keith Dawson 07-Mar-1983 | : 
; pee | edit of alt setules. Updated module names, idents, H 
copyright dates. Changed require files to BLISS library. | ° 
' | D4 


SFIELD $rno$cmd_fields = SET 


File mei leng = string descriptors. 


RNOST_INP = [SDESCRIPTOR(FIXED)] , ! Input 

RNOST_ ~bUTPU = [SDESCRIPTOR(FIXED)] , ' Output 

RNOST_ ~ INTERMEDIATE = CSDESCRIPTOR(FIXED)]) , ! Binary intermediate .BRN type file 
RNOST_DROP_REC = CSDESCRIPTOR(FIXED)) , ! Drop-record file 


} Miscellaneous other string decriptors. 


rno$t_program_name 
rno$t_program_filename = 


rro$t pe ges 
SOVE LAY $SUB_ FIE D( rno$t 
SBYTES( 


rno$h tate ges Y 
SOVERLAY( $SUB “FIELD rno$t 
rno$a aepages $POIN 
rno$t_variant 
rno$h_varian 

SOvE VERLATC $SuB oF IELBC en rno$t 
rno$a yor ient 


STONTINU 


rno$a_dat ime = ($BYT 
SOVERLAY( rno$a i 


4s 
“= 
sae ee = 
= 
= 
= 
rno$h- seconds = 
STONT INUE 


Three words of switch option bits: 


rno$v y,opt fons = (SBYTES(8) 
RLAY ( rno$v_options ) 
iii option! = [$BYTES(2) 
rno$v_option = YTES(2) 
rno$v_option = [$BYTES(2) 
rno$v_option4 = ($BYTES(2) 


= CSDESCRIPTOR(FIXED)) 
SDESCRIPTOR(F FIXES) : 


= CSDESCRIPTOR(FIXED)) , 
TER] , 


= CSDESCRIPTOR(FIXED)] 
$6v ERLAT( $SUB -FIELD( rnost ariant, STRSH_LENGTH 


TER] , 


$(12)], : 


Name of program 
Filename of program 


' Page range string descriptor: 
sah STRSH LENGTH ) ) 
! Length of page range string 


pages, STRSA_ POINTER ») 
! pointer to page range string 


iant string descriptor: 


ngth of variant string 
variant, STRSA POINTE 


ointer to variant string 


System date and time 


ss & & & & 


i ! Command option indicators: 


yb 
ese 8 8 
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FLIP 
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iq 
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RECS == FLIP/RUNOFF record formats 


HL == HL indicator record 


SOVERLAY ( rno$v_option! ) 


rno$y eau puromet tc = ($B81TS(2)] 
rno$v =? automatic § 


= Eseird ; 


rno$v.2 backspace = ($BI1TS(2)) 
SUVERLAY ( rno$v =? back pace § 

rno$v backe ace = beet 1 

rno$v_s_backspace $BIT 


rno$v_2 change s ($BI1TS(2)] , 
$6v ERLAY ( rno$v -? change ) 
rno$v_change pearl’. 
rno$v_s_change $BI1T 
= ($8iT] , 


rno$v_2_cross_reference = ($BITS(2)] , 
SOVERLAY T rno$v_2_ cross. reference ) 

rno$v_cross_reference — = biel ‘ 

rno$v_s_cross_reference = salt ° 


rno$v raat 
rno$v_$S_automatic 


rno$v_chng_char 


rno$v_deb_cond = ($81T] , 
rno$v_deb_cont = ($81T) , 
rno$v_deb_cros = ($BIT) , 
rno$v_deb_ files = ($81TJ , 
rno$v_deb_ index = ($81T) , 
rno$v_deb_save = ($81TJ , 


free bit in OPTION!) 
SOVERLAY ( rno$v_option2 ) 


rno$v_2 sarerqostore = ($B1TS(2)] , 
SOVERLAY ( rno$v -2. intermediate ) 

rno$v_intermediate 

rno$v_s_intermediate = 


> Esai . 


rnosy 2_l og = Cpeits(2)3 ° 
SOVERL Y ( rno$v 2 =*rs8fr) 

rno$v_ ‘a 

rno$v_s_log $B1T)] , 

rno$v_msg_out $B81T) , 

rno$v_msg_user $B1T] , 


= ($BITS(4)) , 


rnosy 2_out put = CSB1TS(2}) . 
SOVERLAY ( rno$v =? resi 
rno$v_output in", 
rno$v_s_output sit 


rno$v_4_out_ format 


= (S$BITS( 


rno$v_2_overprint 9) 
( rnosy. _2_overprint j 


SOVERLAY ( 


iSodeoct9ge 35:97 


.0-74 


Carries state of /AUTOMATIC to DOOPTS 


execute multiple passes and utilities as needed 
/AUTOMATIC explicitly specified 


backspace on same Line 


backspace on same Line 
/BACKSPACE saat tettic specified 


change bars requested 


chenge bars allowed 
/CHANGE explicitly specified 


change bar character specified (see below) 
Carries state of /CROSSREFERENCE to DOOPTS 


translate cross reference 
/CROSS_REF ERENCE explicitly specified 


VAK=11 BL igs-32 V Pa 
VS 55S$ou08 DBS tRoNOFES SRC JRNOMAC .REQ;1 


go through all paths of .IFs gre output draft flags 


echo toc entries in output 

echo .REFs & $FOOs in paves oe file 
put file names in the utput 
echo index entries in cutout “tile 
echo .SAVEs & .RESs in output file 


Carries state of /INTERMEDIATE to DOOPTS 


a .BRN type file will be generated 
/INTERMEDIATE explicitly specified 


print final statistics 


print final statistics 
/LOG explicitly specified 


put DSR messages in the output file 
send DSR messages to the user 


defines output formats 
output file requested 


output file requested 
/OUTPUT explicitly specified 


overprint on same Line 


for LNO1 output: 
set = italics, clear = underlining 
set = portrait, clear = lLandsc 


ane 
set = if header wanted in 0/P file 


$ 
rno$v_(n01_ital_under = ($817) 
eader = ($B8]T) , 


rno$v_in j.port.tend = ($B1T) ,” 
rno$v_(n01_ 


rno$v_(n01_load = (S$BITJ , set = loading of fonts is desired 
rno$v_s_right = ($81TJ , : /RIGHT explicitly specified 


rno$v_s_down = ($8)T] , H /DOWN onph fetety specified 
y 


! (11 free bits in OPTIONS) 
; SCONTINUE 


F 10 
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TOCHL == HL indicator record 18-328-1 38 $3397 34 $25 $DUA28 : LRUNOFE . SRC RNOMAC ..REQ; 1 = (1) 

RG rno$v_overprin = ($B1T) , ! overprint_on same Line ; 
ne rnoby-s overprint = fSBtT3 ° ; JOVERPRINT etictacs specified : 
or 4 erat een enee POE paahite oy ° ! pause at page boundary requested 3 
RG rno$v_pause 5 rfeir) ° ! pause at page boundary requested ; 
* ; rno$v_s_pause = ($B1T) , ! /PAUSE explicitly specified ‘ 
Rs i (NO free bits in OPTION2) : 
+4 SOVERLAY ( rno$v_option3 ) : 
+} rno$v_quick = ($81T) , ! do quick processing (for contents, index) 
+} 08 8 rnoty 2 one youee = USBI TS«2)2, ! output sequence numbers requested ; 

v uenc : 
R4310 rno$v_sequence = sei) ° ; output sequence numbers requested ; 
+ 1} rno$v_s_sequence = ($B1T) , ! /SEQUENCE explicitly specified ; 
RG ig rno$v_2_ simulate = ($BITS(2)] , ! simulate printer form feeds : 
R4314 0 SOVERLAY ( rno$v_2_simulate ) ; 
R4315 0 rno$v_simulate a pgeit ° ! simulate printer form feeds : 
a 1 8 rno$v_s_simulate = ($81T) , ! /SIMULATE explicitly specified ; 
R4318 8 rno$v_2_ underline = (C$B1TS(2)] ! underlining requested ; 
R4319 SOVERLAY ( rno$v_2_underline 5 : 
R4320 0 rno$v_under Line = Fseit, ° ! underlining requested: (default) : 
ot 1 8 rno$v_s_underline = ($81T) , : /UNDERLINE explicitly specified : 
R4 8 rno$v_2_und separ = ($BITS(2)] ! underlining on separate Line F 
R4324 SOVERLAY ( rno$v_2_und_separ 5 : 
R4325 rno$v_und_separ = rseiri ° ’ ungers ini" on separate Line : 
a? $ rno$v_s_und_separ = ($B8ITJ , ; /SEPARATE_UNDERLINE explicitly specified : 
R4328 0 rno$v_2_und_nons = ($B1TS(2)] ! underlining non-spacing inline ; 
R4329 SOVERLAY ( rnosv.2 und_nonsp 5 ° , ° 3 
R4330 rno$v_und_nonsp = Peeity P } non-spacing inline : 
+4 1 rno$v_s_und_nonsp = ($BITJ , 3 /NONSPACING explicitly specified ; 
oi : rno$v_und_char = ($B1T) , : character specified (see below) : 
R4335 3 
a (4 free bits in OPTIONS) : 
R4 SOVERLAY ( rno$v_options ) ; 
RG ! Option 3 
RG ; 
RG ; 


SOOSNOUS WN —O 
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5 


Se Se ee Se Ge Se ee FHSS Os Oe Se Ge Se Ge FH Ss Ge FH oe 


10 
FLIPRECS == FLIP/RUNOFF record formats 18-5e -1984 23:07:4 VAX-11 Bliss-32 V4.0-74 Page 158 
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rno$c change = (SBYTE) , ! Change bar character (RNOSV_CHNG CHAR set) ; 
prose “under | ine = ESB YTE ° ; Under Line character (RNO$SV_OND_CRAR set) ; 
rno$h_bol = [SSHORT_INTEGER] , H Bolétng overprint count . 
rno$h_dbg 5 Sot T NTE oEe ° ! Debug flags, ist word : 
rno$h_dbg = LSSHORT_INTEGER] , ! Debug flags, 2nd word ; 
rno$h_down = [LSSHORT_INTEGER) , ! Down shift count (number of Lines) : 
rno$h_right = LSSHORT_INTEGER) , ! Right shift count (number of characters) : 
rno$h_form_size = CSSHORT_INTEGER ! Form size (number of Lines) : 
TES; ; 
LITERAL rnoSk_cmd_len = SFIELD_SET_SIZE ; ! Length of RUNOFF command block 
MACRO 
$rno_cm 


d= 
BLOCK C rno$k_cmd_len ] FIELD ( $rno$cmd_fields ) 


: End of RNOMAC.REQ 
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Version: *v04-000' 


i eeeeereererereerereeeeeeereeeeeteneeeeerereeerereeetereneeeeneeeeeeeeeneeeee 
'@ 


is COPYRIGHT (c) 1978, 1980, 1982, 1984 6 
ie DIGITAL EQUIPMENT CORPORATION, MAYHARG. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


w 
x 
® 
® 
oY 
is THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
i ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
is INCLUSION GF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR “ANY OTHER 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
is OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFT CARE TS. HEREGY 
ie TRANSFERRED. + 
® 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
i® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
ie CORPORATION. ‘ 
® 
® 
* 
® 
* 
® 


:* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY CF ITS 
:* SUFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


See eRee AAA AAAAAAAAAAAAAAAAAATEAAAAAAAAAAEAEAAAA RARER AAA 
' 


i FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

} ABSTRACT: 

! This require file defines the Literals used to reference the 
various DSR commands. 

ENVIRONMENT: Transportable BLISS 

! AUTHOR: Rich Friday CREATION DATE: 1978 
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KFA 4 Ken Alden 04-Aug-1983 
Added H_DISABLE_APPEN, H_PAGE_NOW. 


KFA00013 Ken Alden Ose eee 
Added directive H_ENABLE_CHAPTER, H_DISABLE_CHAPTER (dsrplus). 


REROOO12 Ron Randall 17-Mar-1983 
Made topnote-related text consistent with other modules. 


KFA00011 Ken Alden 16-Mar-1983 
Made SAVE/RESTORE visible to DSR. 


KAD00010 Keith Dawson 07-Mar-1983 

Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 
Made handler codes pow vegas = ascending again through 
their alphabetical order, including both D Rmonty an 
DSRPLUS commands. The DSRPLUS commands will still be 
reported as errors for DSR. 
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TOCHL == HL indicator record 30571382 $3: gf "$25 $0UA28 STRONGER SRC RUNHAN.REQ; a = (35 
LITERAL H_APPENDIX = 1; 

LITERAL H-AUTOJUSTI = gi 

LITERAL H_AUTOPARAGRAPH = : 

LITERAL H_AUTOSUBTI = 4; 

LITERAL H_AUTOTABLE = 5; 

ZIF DSRPLUS X%TH 

hg FERAL 4 YAUTOTITLE = 6; 

LITERAL H_BEGIN_BAR s 7; 


CITERAC Hee ZTHEN 


LITERAL H_BEGIN_TOPNOTE = g: 
RZ TERAL H-BEGIN_PASSTHR = ; 
LITERAL H_BL = 10; 
LITERAL H~BREAK = 11; 
LITERAL H_CENTER = 1¢3 
LITERAL H~CHAPTER = 13; 
LITERAL H_COMMENT = 14; 
LITERAL H_CONTROL_CHARA = 15; 
ZIF DSRPLUS ZTHEN 

LZ TERAL H_REFERENCEPOIN = 16; 
LITERAL H_DATE = 17; 
ZIF DSRPLUS ZTHEN 

LITERAL H_DISABLE_APPEN = 214; 
LITERAL H_DISABLE_BAR = 18; 
LITERAL H_DISABLE~BOLD! = 19; 
ZIF DSRPLUS ZTHEN 

bp TERAL L H_DISABLE_CHAPT = 212;! Same as H_no_chapter 
LITERAL H_DISABLE_HYPHE = 0; 
LITERAL H_DISABLE_INDEX = 1; 
LITERAL H_DISABLE_OVERS = $3 
LITERAL H_DISABLE_TOC = : 
LITERAL H_DISABLE_UNDER = 4; 
ZIF DSRPLUS ZTHEN 

Lp TERAL H_DISABLE_XPLUS = 25; 
LITERAL H_DISPLAY_APPEN = $6: 
LITERAL H_DISPLAY_CHAPT = : 
ZIF DSRPLUS ZTHEN 

bp TERA H_DISPLAY_COUNT = 28; 
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; Version: "v04-000' 


. 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


m 
* 
® 
* 
® 
is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
it TAIN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
i g THEREOF MAY NOT BE PROVIDED OR OTHERUISE MADE AVAILABLE TO ANY © 
it OTHER PERSON. NO TITLE TO AND OUNERSHIP OF THE SOFTUARE TS HERESY = 
ie TRANSFERRED. . 
4 ® 
it THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE 
is SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
it CORPORATION. . 

® 

® 

& 

we 

& 

® 


!* DIGITAL ASSUMES NO - ty) 


FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WH] 


IBILITY 
H IS NOT SUPPLIED BY DIGITAL. 


Se eeeee AAR ARERR AAAAAAAARAAAARARAREREEAAAAAAA TATRA AeA AAR 
' 


1+ 


lee 
FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 


! ABSTRACT: 
: This require file defines part of the storage area for the .SAVE 
commands. Whole structures that will be saved will remain as they 
are; this Require file just Cot ines the additional area for the 
single items. Items declared in the SAVE area do not also appear in 
sed 1M ge area because the SAVEALL area includes all that is in 

e area. 


' 
' 
' 
' 
' 
' 
' 
' 
; ENVIRONMENT: Transportable BLISS 
; AUTHOR: Ken Alden 

: CREATION DATE: December 1982 

' 
' 
' 
‘ 
‘ 
' 
' 
' 
' 
' 
J 
' 
' 


i MODIFIED BY: 


007 penopes? Ray Marshall 1-June-1984 
Coaster eter? poverked the definitions of SAVE_LENGTH & 
SAVEALL_LENGTH. At least one size was wrong and hard geese 


“opm juere used - Ke. a ZSIZE could have been used. 
ZSIZE is used for most of the items. Also, the XPD_ os 
are now conditionalized for DSRPLUS. 


006 KFA00006 Ken Alden 30-Sep-1983 
Moved the HCT items to the . SAVE list. and three SCA items to 
the .SAVE ALL item block. 
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GcML == Wo indicator recora ™t® 1ERepctgee 33:00:40 S355$0UA28: RUNOFF. sRCSsave.reo;1 28 n 


005 —«KFA00005 Ken A 7=Jul-1983 


iden 
Added gca_flag_cmd to the save List. 
KFA00004 Ken Alden 55-Jul-1983 
Added SCA_FLAGS to the save List. 
003 KAD00003 Keith Dawson 07-Mar-1983 


S.e0es edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 
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FLIPRECS == FLIP/RUNOFF record formats 15-5e -1984 23:07: VAX-11 Bliss-32 V4.0-74 Page 17 
TOCHL == HL indicator record 1 =30071 382 33:97:59 MESS SSpUA2 : CRUNOFF .SRCJSAVE.REQ;1 ° (35 
SFIELD SAVE FIELDS = 

save$g_sca_cc_ok = CSINTEGER], 

savesg_sca_ [ust ty = (SINTEGER), 

save$g_sca_fill = [SINTEGER), 

sovets.sce_frock = [SINTEGERJ, 

save$g_sca_\m = [SINTEGER], 

save$g_sca_rm = Sint GERI, 

save$g_sca_spacing = [SINTEGERJ, 

save$g_sca_ker = [SINTEGERJ, 

save$g_sca_autotitle = [SINTEGERJ, 

save$g_sca_f oe = SI NTE SER ’ 

save$g_gca_width = LSINTEGERJ, 

sawe$g_gca_flag_cmd = [SINTEGER), 

save$9_9ca_ eep = [SINTEGER), 

save$g_fhct_hd_case = (SINTEGER), 

save$g_hct_dafe = CSINTEGERJ, 

save$g_hct_headers = CSINTEGER), 

save$g_hct_nmpg_np = [SINTEGER), 

save$g_hct_number_pag = (SINTEGER), 

save$g_hct_subtitle = CSINTEGERJ, 

= CSINTEGER 


save$g_phan_l|lines 
TES; nhs 


CRO 
$Ssave_ block = 
BLOCK Csave$k_length] FIELD (save_fields) %; 


SFIELD saveall_fields = 
SET 


saveall$g_gca_autojust = (SINTEGER], 
saveall$g_gca_autopara = (SINTEGER]J, 
saveall$g_gca_autosubt = (SINTEGER], 
saveall$g_gca_autotabl = (SINTEGER], 
saveall$g_gca_case = CSINTEGER]), 
saveall$g_gca_xcase = CSINTEGER), 
saveall$g_phan_header = (SINTEGER], 
saveali$g_phan_paging = (SINTEGERJ, 
saveall$g_sca_cc_ok = CSINTEGER), 
saveall$g_sca_bar_char = (SINTEGER), 
= CSINTEGER 


saveall$g_sca_pertod 
TES; 


LITERAL 
saveall$k_length = SFIELD_SET_SIZE; 


MACRO 
$saveall_block = 
BLOCK Csaveall$k_length] FIELD (saveall_fields) 2%; 


MACRO 
$XWDS (d fined .os) = 
ZSIZE(defined_as)/ZUPVAL 2%; 


LITERAL 
saveSk_length = SFIELD_SET_SIZE; 


FLIPRECS == FLIP/RUNOFF record formats 1b Sep-1 VAX-11 Bliss-32 V4.0-7 Page 173 
TOCHL == HL indicator record 300-1382 $3: 97: $2 eet 8 CRUNOFE She SAVE .REQ;1 ™ (2) 


LITERAL 
} j fount ty oe (or fullwords) since the size of this Literal 


foul length = ewes tthe og table tf teas count 


. 

ED List ax stabs ! 7 
Detatable. efini T 
r 


' 

' 

' 
te MOST VECTOR pdt_ 8 jon} ! parag 
saveSk_length, ' SAVE bloc 


bigs scount - ae Eech Tig Be uses A fullwords 
s+2 i ab plus wo control words 
CHERLL OCATION(atable_ stength Bac Action TABLE entry is one byte 


th ° ! par egreph definition. tables 
XuBs ( save_block), SAVE block 


saveall_length = save ctengen ' Size of SAVE structure 
saveal($k_Length } 1 SAVEALL yee ck 

$xwds (counted list fmax levels]) ! for HLLIST 

(max_ecc * ecc$k_length) | for ECC 


he flag table. 
he TAB t athe 
he Action TABLE 

aph definition tables 


-2-+++ 


x( save_length 


ee ie a 


-+++ 


ZIF DSRPLUS ZTHEN 


+1 ! for XPD Zi tags 
eri + $xwds(fixed_string Cxp_ string_Size]) ! for XPD_APPEND 
Z( «Alternate definitions: 

+ max_levels+2 ! for HLLIST 

+ (xp_ string. size/ZUPVAL) +4 ! for XPD_APPEND 


1% 


11 
FLIPRECS == FLIP/RUNOFF record formats 1}-5e 1984 23:07:4 VAX-11 Bliss-32 V4.0-74 P 174 
TOCHL -- HL indicator record 1 300-1382 $3:8032 VES SSpUAo8 CRONE E SRC DSRLIB.REQ;1 res (2) 


>; 4943 0 REQUIRE ‘REQ:SAVSTK.REQ'; ! Save and Restore stack 


Be Be Se Se Se Se Se Se Be Be Se Ss Se Se Ge Se Be Ge Se Se Se Se Ge Fe Se Se Se Ge SH SF Te Ss Se Se Hs Se Se Se Se Se Se Ss Ss Se Ge Se Se Se Se Se Se Se Se Fe Se Seas 


SOOO OSOCOOCOCOOSOSOOCOCOOSOOOSOOSSOSSSOOCOSCOOSOOOOCOSOOOOCOOOOOOOOOOOOOO 


IP ee == FLIP/RUNOFF recere formats 15-Sep-1984 $3: Qf: $9 VAX 


FL 

TOCHL == HL indicator recor 15-Sep-1 $25 segpbA 
! 

1 


Version: *v04-000' 


ESSE SESE TIS IS IIOP ETI TIT TTT rire cirri citric t ii iit iti iit itiiiiiitiiiigy 


'@ & 
ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . 
is ALL RIGHTS RESERVED. . 
: ® 
it THIS SOF TWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COP * 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH * 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OT : 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ~ 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HER . 
ie TRANSFERRED. ‘ 
ey 

it THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
ie AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
ie CORPORATION. e 
® 

we 

& 

® 

® 

* 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

't SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

i 

L hopitieenneaaienienneenpent eieneneneetensaupnscnneeessenatbennncebbenséses 


+ 
FACILITY: DSR (Disital Standard RUNOFF) .’ DSRPLUS 


ABSTRACT: 
Defines the storage area for the .SAVE commands. 


ENVIRONMENT: Transportable BLISS 
AUTHOR: Ken Alden 
CREATION DATE: December 1982 
MODIFIED BY: 
002 KAD00002 Keith Dawson 07-Mar-1983 


Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 


ee ee ee eee 


LITERAL 
stksav_size 
savstk_size 
savstk_depth 
savstk_address 
savstk_source 
savstk_req_d 
savstk_ipagen 
Savstk_iseqn 
Savstk_fspecp 


We store up to 30 ae tt B to record trans. 

Up to levels of . 

Index into the SAVSTK ge the current - th is saved. 
Index to starting address of the save 

The handler_code of the command that ae this entry. 
Me ta depth at — ch .IF must terminate 

Input file page number 

Input file sequence number 

A reference to the file +52 where the command occured. 


esses 8s OO 


nnnnnnonne 
MEW I row 


1 Bt igsrze V4,0-7 Pa 
28: CRUNOFF . sae SAVSTK.REQ;1 


SSass 


Ssess 


DDDDDADADADDAADADD 
Wr—OO0° 


PUPP 
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oooo 


FLIARECS =- FLIP/RUNOFF recere formats 1-36 Sep p- 138% 33: g?: $9 vane 8 1,0 Ligerse Ye 


0-74 Page 176 
CRUNOF ¢SRCISAVSTK.REQ:1 . (1) 


HL == HL indicator recor -Sep-1 82 
savstk_fspecc = 6; ! Length of file spec of above. 
LITERAL 
savstk_item_count = 7; ‘Number of pieces of info in SAVSTK. 
STRUCTURE 
savstack Ci. jsnesthsev size m=savstk. item_count] 
ZUPVAL*( men + 1 F 8 ) T Leave room tor. the Oth nesting level. 


(savstack + (IF j EQL savstk_depth 
ELSE ZUPVAL*®(1 + mei + j) ) ); 
! End of SAVSTK.REQ 
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FLIERECS -- FL IE/RUNOFE record formats 
TOC n 


KL == HL indicator record 
REQUIRE ‘REQ:SCA.REQ'; 


18-ep-196 33:95:29 = VOSSUE DBASE tRGnbee shcSoseute.rea; 12% | 


SCA_... Scanner and translator control items 


11 
PRECS == FLIP/RUNOFF record formats -Sep-1 li 0-7 Page 178 


ToCHL =- HL indicator record 13-Sen-1984 33:97:48 Masts pDASBSTRGNOER sac SCA.REQ;1 (1) 
i] 
' 


> R5015 ' H 
: : 18 ; Version: *v04-000' : 
: R { lenaenenennerententeentennnennnntnnnnententretterterirertntrnntnntenerentnnes ; 
; ® '® * : 
, R 'e COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * ; 
3; R 8 '‘® DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * : 
: : 9 ¢ he ALL RIGHTS RESERVED. : ; 
; Ra 4 it THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

; R5025 '‘® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

; Ree § '® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

3; ® '* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

; R5028 0 '® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

: R28 3 0 i. TRANSFERRED. * 

Py H oy 

: ath 6 '® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

; R50 g 0 't AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

H tet 8 i: CORPORATION. * 

Py H a 

; Ragas 0 '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

: R208 8 '® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

3 R503 '® * 

; R5038 0 '® * 

8 R5039 0 Vee REAR RA AEA RARER EAE 

; R5040 8 ! 

: R5041 

: Ronee 0 '++ 

3 st seh 8 FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

: R5045 0 i ABSTRACT: 

3 Rapes 8 } Definitions having to do with SCA (SCANT control area). 

; R5048 0 i ENVIRONMENT: Compatible BLISS 

; R5049 0 ! 

; R5050 0 ' AUTHOR: Rich Friday 

; R5051 0 ' 

: R026 0 ' CREATION DATE: 1978 

; R5053 0 ‘ 

; apse 0 MODIFIED BY: 

; 5056 016 — REMO0016 Ray Marshall —_16-November-1983 

3; =R5057 : Added macros with "‘_f_"* within their names and defining cells 

3; ORS 28 : so they can be loaded by Ken's SAVRES module using macro 

3 Rn 5 } names instead of numeric offsets. 

: R506 i 015 REMO0015 Ray Marshall §7-November-1983 

; R20C8 : Added 12 more cells to the case rules section to support case 

3; R506 : changing within the DEC multinational character set. This 

3 R2 : } also required renumbering the whole table! 

: RS i 014 KFA00014 Ken Alden 18-Sep-1983 

: R For DSRPLUS: added sca_margin_pad. 

: RS 5 i 013A KFA00013A Ken Alden 0-Sep-1983 

3; R5070 : Comment changes only; for three items that moved 

3 =R5071 : from save to save all. 


| 
| 
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FLIPRECS == FLIP/RUNOFF record formats 18-56 Sep-1984 7: VAX=-11 BLi 
TOCHL == HL indicator record 1 Haat 7 $3: 7 $8 
; OR ore ' 
; R507 i 013 KFA00013 Alde 13-Sep-1983 
; R5074 i For DSRPLUS: Added” SCA WRD -piss to the SCA_PASS word (35) 
3 . Br? and made SCA_PASS info abit. 
; Reore 6 i 012 FA00012 n Alden 05-Jul-1983 
3 R208 0 Sdded SCA_FLAGS ~s "the cave list. 
: R5080 011 KFA00011 Alden 15- 
; kR5081 O i For DSRPLUS: added SCAC35] SCA PASS. oe tags passthrough 
3 Rents 0 For DSR: Extended SAVE & RESTORE capability. 
; Regge 6 i 010 KAD00010 Keith Dawson 07-Mar-1983 
; k5085 0 ' Global edit of alt ato pay Updated module names, idents, 
: Renee 8 5 copyright dates. Changed require files to BLISS library. 
: R5088 0 ie 


=32 V4.0-74 
: [RUNOFF ..SRCJSCA.REQ; 1 


Page 179 


(1) 


PTR TE TETETE LOLOL Teel eee ee ee ead ee LLL LLL LEE ee eee 


He Be Se Se Se Be Ge Be Ge Se Ge Ge Se FH Ss Fe Se FH Se Ge Se Se Se Be Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se ee Se Se Se Se Beas 


Ssces 


DVPUDVIUPV SV SUSU SUSU SUSUSVSUSUSUSUSUSUSUSISISIS SISSY SISOS 
aR 
MEW oO 


SE san abandon 
SBIFREUN AS SOVRARUNSSOMNenRww—sOSeN 
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Serres 
MEW Oo 


FLIPRECS == FLIP/RUNOFF record formats 
TOCHL == HL indicator record 


MACRO 


leeeeeeerteerereereeeeeeeeee 
' 


SCA_ 


ANMMMNNNMNMNNYNKHKNNNKNKYYKNKNYNNNonuNuou 
SS 359555 55555554558 85% 


QO 
>> 


ovo "Ee €eccon"o™ 
OOOO DDDDOONOO 


» Rag 

~~ 
a 
on 
Owoweo 
ie ee 
-- 
44 


otOoO™"WoOowovITT | 


SCA_JUSTIFY 
SCA_f JUSTIFY 


pat ke > ee ee ee i) 
=m =f 


>>>>rrrrr,r»>y 
teeepees a 


w- 


ee 
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ANNMMNNNNKNHKNKWNNNNKNNONNONnN 
POOOODOOOOAOAOAOOAOOOOOOOO 


>>>>>>>>r>rr>r,Yy 


FC 


oa™ 

Qoo~r 
oF 
x 


LM 


TOTITL 
AUTOTITLE 


GS 
f FLAGS 


HUunnHnnHnhHnnHnHnKHnHnnHhnHnHnnHnHHhHhnHhnhnHnnnnun 
ese ee eeseeeeseseseseseseeeseseeesees 


u 
= .SCA é %, 
= §CAL 
= .SCAL26]&, 
= §CAL26 
= SCA g i, 
= §CAL 
= \SCAL2BI, 
= $CAC 
= .SCAL29)&, 
= §CAL 
= sechagee 
= 
= .SCA 8 i, 
= $CAC31 
= .SCAL32)%, 
= §CAC 
= .SCAL33I&, 
= StAL 
= ,SCAL34)%, 
= SCAC34 
= \SCAL35J4, 
= SCAL 
= ,SCAL36J4, 
= $CAC36]2, 

end of 
= $CAC37)2, 


save area 


'Save case rules here when 
exceptions are set up. 


iCase rules for current word. 
Webs 


iDefault case rules. 


! 
'Save case rules here when 
‘exceptions are set up. 


iCase rules for current word. 


iDefault case rules. 


i 
'TRUE if case rules set for a word only. 


LARRRAAARAARAASASASAALALALAAL ARAL LSS SO 


nted in SCA_CASE_SIZE. 


'CSAVE) TRUE if text should be justified. 

(SAVE) TRUE if filling Lines. 

'CSAVE ALL) TRUE if control characters allowed in input file 
'(SAVE)See FJNFNJ for explanation. 

'(SAVE) The Left margin. 

!(SAVE) The right margin. 

(SAVE) 1+number of blank Lines between Lines of text. 
'(SAVE ALL)TRUE if double spacing after °'.?!;:"' 
'(SAVE)TRUE if empty records have significance. 

'(SAVE ALL)Change bar character to be used if enabled. 
(SAVE) TRUE if .AUTOTITLE is in effect. 

'TRUE if flags are enabled. 


(RRRARARAASARSRLRSARAAL SSS SD | 


'TRUE if first character on the Line. 


12 
1$-$ep-1964 25:07:49 VANsTT BLigerS2 weOa74g 


fs RS 


roe 1 


PARAM NIVIVIA SE & & 


WN OOODNOAULWN—"O0OND 


c 
PUPVIVIV IV IUSUIU IV IUIVSVSIUSVUSUSU SUSU TSS ISIS ISIS ISIS 


ROtIKY —— — 
CSSLESLSSELSARRANASSSISARANLSSSIFSAF 


SOODGOOSOOCOCOCOCOCOCOCOOSOOOCOCOOCOOCOOO COSCO CCOOOCOSCOOOCOOOOOOOOOOOOOOOOoOO 
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Be Be Oe Oe Be Se Be Se Be Be Se Se Se Se Se Se Se Ge Fe Ge FH Fe Se Be Se Se Se Se Fe Se Se Se Se Se SHS Se Se Se Se Sete SF Ss Se Ge Se Se Se Se Se Se See Se Sees 
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R283 


- HL indicator recor 19-Sep-1984 $3 97 8 Mees bsppAae TROND SRC SCA.REQ;1 Senge (3) 
SCA 


-NBITS = SCA i, E 6B 
SCA_X_FLAG = Stab R8aE- Thue W ratt aieti tt a sequence 
marked by the 


Ae -- FLIP/RUNOFF re formats 


SCA_FRC_CASE = SCAC40]%, ' TRUE case of current 
‘word was forc 

SCA_CONT = $CAC41)2, (TRUE if ouser sete .NO SPACE 

SCA_DO_NBITS = SCAL42)%, 'SEE BELOW 

SCA_PRESCAN = SCAL45J2, 'See stat fer explanation 

SCA_HEADER = SCAL44)2, ! Used Ba -- True if 

SCA. i collec ox gods. level. 


SECT_EMPTY = SCA t23%° TRUE if no ning in current section. 
. C 


SCA_XROUTINE = SCAL46)% i Indicates which routine to call for indexing: 
'FALSE ==> XR, TRUE ==> SUBXR. 
ZIF DSRPLUS XTHEN 
SCA_PASS = (S$CAC47])<0,1>%, : TRUE user is passing escape 
‘sequences. 
SCA_WRD_PASS = (SCAC47])<1,1>%, iTRUE user is passing escape 
‘sequences along witn this word. 
SCA_MARGIN_PAD = (SCAC47])<8,8>%, ‘Number of egeces added at the 
'beginning of MRA 
xf 
SCA_WRD_NBITS = SCA $823. 'SEE BELOW 
SCA_WRD_CNBITS = SCAL49J%, i SEE BELOW 
SCA_WRD_ACNBITS = SCA a03R 'SEE BELOW 
SCA_RSKIPS = SCAC51J%, i TRUE if multiple spaces/tabs are to 
'be skipped. 
SCA_FC_CASE = SCAC52)%, ‘TRUE if case rules to be used are 
‘those for the first character of a word. 
SCA_INDEX SCACS3 'TRUE if indexing commands are to be obey 


= i, ed. 

SCA_FRC_CHR = SCAC54)2, 'True if current character should not be. translated. 
= SCAL55 'Pending indentation. 

SCA_PARA_PND = SCAC56 'TRUE if a paragraph is pending. 


' 
' 
everytn ing below this point refers to the word currently being 
: scanned. 

eRe ERA AERA AAAAAAARAAAEAAAAAAAAAAAEEAAA RATATAT RARER 


SCA_WRD_PNTR = SCA 'A CHSPTR to the first character of the word. 


62]%, 
SCA_WRD_INT_L = SCA 8 z, ‘Internal representation size so far. 
SCA_WRD_EXT L = SCAL64)2, pusternes size (i.e., print positions) 
SCA_WRD_ISEQN = SCAL65)%, ‘Input Line counter or record number. 
SCA_WRD_DRAFT = SCA § i, 'TR e i word is ant ioe a ew sa area. 
SCA_WRD_DRAFT_F = SCA Ea 'The aha | My fag. for this word. 
SCA_ Fae = (SCA § J5<BAR__>% f change bars associated with this word. 
SC “BAR_CHR = SCA i, Tyee ehis. character as the change bar. 
SCA_WRD ~EPERD” = SCAL70)2, igpacecter being worked o 
ae TE RCEN = 3e8 4 x. ie aes SCA Re st TSEON is. an SOS style record number. 
= . nput page numbe 
SCA_WRD-FOOTW = SCA ig i, Hs e.fuaber of footnotes attached to 
SCA_WRD_F_XIN = ScAtr ede. 
SCA_WRD-L-XTN == SCAL75J2, ‘Last transaction number associated with this word. 
SCA_WRD_LST_HYP = Searels. 'TRUE if word to end with a . 
SCA_WRD-HYP_PTR = SCAC81)2, '1f SCA_WRD_LST_HYP is thut, 


iFirst. treneact ion number associated with this word. 


FLIPRECS == FLIP/RUNOFF record formats 18-56 Sep-1984 VAX=-11 Bliss-32 V4.0-74 
TOCHL == HL indicator record eet $3: 9 38 "$255$DUA28; CRUNOFF . SRC SCA.REQ;1 
3 'then ; CHSPTR to the ‘-' 
SCA_WRD_LC_PNCT = SCA ¢ i, 'TRUE if Last gserecer was end-of-sentence punctuation. 
5 SCA_WRD-LST_SP_ = SCA i, ‘Number o spaces after last word. 
SCA_WRD_LST_JUS = SCAL84J2, 'True if justi {eation eork after last word. 
8 SCA_WRD_LST_UND = SCAL85J2; 'True if last space was underlined. 
0 
1 LITERAL 
1 SFA_CASE_SIZE = 2: ‘Number of cells containing case information 
: LITERAL CA_SIZE = 96; ‘Number of cells in entire SCA 
1 SCA_SAVE_START = §2: ‘Starting number of the SAVEd SCA bits 
: SCA_ SAVE END = 6; 'Endin ng ’ " “ 0 ot " 
1 Ree For all fields my to do with underlining, bolding, etc, see ENDCHR, ENDWRD, OUTLIN, and DOFLG 
: to see how these fields get manipulated. 


'The bits defined by these macros get set to a. a Rae = Ay. ey A 
'to BoLD and/or UNDerline all characters it e oe 
e 


pistcwmees by things like “& and \€, and LENABLE/ *DISABLE TBSLSING. 
SCA_BLD = (SCA_NBITS)<BLD__>%, 
SCA_UND = (SCA_NBITS)<UND- 
SCA ~BLDUND = (SCA “NBITS) <BLDOND “>t; gg igs A ane underlining 


'The bits defined by these macros determine whether or not various flags 
‘have any effect. TRUE means that the perresnenenay function should be 
'done when the set is recognized, FALSE not 
‘These bits get se (gigered by commands such as .ENABLE/.DISABLE BOLDING, 
‘and so on. See M, which sets these flags. 
‘There is a me Rey between SCA. XXX and SCA_ 00_ XXX. The former 
‘indicates whether or not the XXX type of emphasis has been turned on 
‘by a construct such as “8. The Latter indicates whether or not the 
ienphasis called fof by XXX should really be done. In particular, 
‘consider uinee tue shane sequence: 
1003 This text hh be "certian because both .ENABLE UNDERLINING and _*_& 


'0i) were $s But 

1904 Pica E UNDERL INING: this text (efter the "';"’) will not be ROS 
5 because, the ns oteage UNDERLINING command indicates it should not be 

iene done porns ps more interesting is the fact that even 

'00 ecentetcte tuto Gwlobrbdbs will not be underlined whereas 

: NABLE UNDERLINING; these two words\& will be underlined, but nothing 

: after the \ sequence. 


MEWN $$ O OOBNOUE WN O DONO Ww O0MW 


MACRO ee 'See FLGSEM 
SCA_DO_BLD = (SCA_DO_NBITS)<BLD__>%, 
SCA_DO_UND = (SCA_DO_NBITS)<UND_ >2, . 
SCA_DO-BLDUND = (SCA_DO-NBITS)<BLDORD_ _>%, 'Bolding and underlining as a set. 
SCA_DO_OVR = (SCA_DO_NBITS)<OVR__>2, 
SCA_DO_ IND = (SCA_DO_NBITS)<IND__>2Z, 
SCA_DO_HYP = (SCA_DO_NBITS)<HYP__>2; 


MACRO 
! The fields defined here are accumulated for an entire word. 
! They get cleared at the start of a new word. 


Oe eae eal Oa) ar al ab ad ah Ah Ah Ab Ab dh Ab hd hb bb adbhdchbchb bbb db dbubh Ab Ab Ab A besh Ab Ab Ab Ah Ah Ab Ah Ab Ab Ah Ah Ab ab ab ah dh dh ah ah dn a 


PPADS BEE ELE EEE 


DD DDD DD DDD DBD BBD DD DD AA BDADAAAAADAAAAABAAAwWDwAsAAwWDwWDAWAwAAwWwWAWWVAWV.WAwW.wWIAD 
SOOOOOCOOSCOOOCOOCOOC OOOO OCOOOOSOSOOSOCOCOCOOCOCOOCOSSO1 OOOO OCOCOCOOOOOOOOOO 


Be Se Se Se Se Se Be Se Se Se Se Se Ge Se Se Se Se Fe Se Se Be Ge Se Ge Se Ge Ge Se Se Se FH Se Se Se Se 4 Se Se Se Be Se Se FH Se Se OH Se Se SH SHS oe Se Se ee Se ee 


COMO UE WOOO UEWN OO 
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TOCHL == HL indicator record 1 300-1 38e 33:97:45 VES S$DUA 5: CRUNOFF . SRC SCA.REQ;1 “ (33 
SCA_WRD_BLD = (SCA_WRD_NBITS)<BLD__>%, 
SCA_WRD_UND = (SCA_WRD_NBITS)<UND_  >2, 
SCA_WRD_BLDUND = (SCA_WRD-NBITS)<BLDORND. _>%, !Bolding and underlining as a set 
SCA_WRD_OVR = (SCALWRDUNBITS)<OVR__>2; 
MACRO 
! The fields defined here get set just before a new character 
! is picked up. Hinge are inherited from the global environment 
! in effect at that time. 
SCA_WRD_C_BLD = (SCA_WRD_CNBITS)<BLD__>%, 
SCALWRD_C_UND = = (SCA_WRD_CNBITS)<UND) >, 
SCA_WRD_C_BLDUN = (SCA_WRD-CNBITS)<BLOURND_ _>%, !Bolding and underlining as a set 
SCA_WRD_C_OVR == (SCA_WRD"CNBITS)<OVR__>2} 


MACRO 

! The fields defined here get set as various functions are 

! requested, on a once-only basis (e.g., single character underline, &x). These fields, together with 
! the previous three fields, dutermine what functions have been 

! requested for a specific character. 


SCA_WRD_AC_BLD = (SCA_WRD_ACNBITS)<BLD__>%, 
SCA_WRD_AC_LUND = (SCA_WRD_ACNBITS)<UN i, 
SCA_WRD_AC_BLUN = (SCA_\IRD_ACNBITS)<BLDOND _>%, !Bolding and underlining as a set 
SCA_WRD_AC_OVR = (SCA_WRO”ACNBITS)<OVR__>2; 


MACRO 


HH ee eee ee ah sh sb db ib db Ab Ab Ab Ab Ab Ah Ab Ab Ab db dh dh ah Ab ab a ah ah ah Ab ah dh ah ah ab dh dd ah dh dd al 
~ 


i] SCA_DEFINITION = 
: VECTORCSCA_SIZEJ%; 
: SFIELD HR SCA_FIELDS s 
R H_R_$G_SCA_JUSTIFY = CSINTEGER), 
R H_R_$G_SCA_FILL = CSINTEGERJ, 
R H_R_$G_SCA_CC_OK = CSINTEGER], 
R H_R_$G_SCA_CROCK = (S$INTEGERJ, 
R H_R_$G_SCA_LM = CSINTEGERJ, 
g H_R_$G_SCA_RM = CSINTEGER], 
R H_R_$G_SCA_SPACING = (CSINTEGERJ, 
R H_R_$G_SCA_PERIOD = [SINTEGERJ, 
fe H_R_$G_SCA_KER = (SINTEGER], 
R H_R_$G_SCA_BAR_CHAR = CSINTEGERJ, 
R H_R_$G_SCA_AUTOTITLE = CSINTEGER), 
R H_R_$G_SCA_FLAGS = CSINTEGER 
® TES; 
R LITERAL 
: H_R_SCASK_LENGTH = SFIELD_SET_SIZE; 
R LITERAL 
. : MAX_H_R_SCA = 3; !This means there are a maximum of 3 concurrent PUSH_SCAs. 
MR SH_R_SCA gen = 
. BLOCK CH_R_SCASK_LENGTH] FIELD (H_R_SCA_FIELDS) 2%; 


MAC 


RO 
PUSH_SCA = 


FS ee PS ee PSS PSPSPS SS FSCS FS eS SPSS eS *S eS *S See *S ese *S se se teresa tesertea terete ra *P terete terete 
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-> @#eeeeeeeeee QaQaaaaagaaaaaaa 
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TOCHL == HL indicator record at $3: 95 rh Ves ssnaale: 8 (RUNOFF. sre DSRL1I8.REQ;1 - (5 


; 5350 0 REQUIRE "REQ:SETCAS.REQ'; ! Case control Literals 


FLIPRECS == FLIP/RUNOFF record formats 1b-56 Sep-1984 VAX-11 Bliss-32 V4.0-7 Page 1 

TOCHL == HL indicator record 305-1382 $3: He 3 VSesssnuAle: : CRUNOFF . se SETCAS.REQ;1 ent 88 
' 
! 


Version: *v04-000' 


PEP ESS TESTS IST ITEP TTT TT TTT rrr cre rrr r iirc iii iii iii titi i iiiiiie 


'e 

'e COPYRIGHT (c) 1978, 1980, 1982, 1984 B 

'w DIGITAL EQUIPMENT CORPORATION, ° MAYNARD. MASSACHUSETTS. 
'w ALL RIGHTS RESERVED 


® 
® 
® 
& 
® 
@ 
is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ie ONLY ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
it COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
is OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE 1S- HERESY 
ie TRANSFERRED. ® 
® 
® 
® 
tr 
® 
® 
® 
® 
& 
® 


ie THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE 
i. eORPORAT {bh NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!t DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


eee RAR ARERR AAAHAAAAAAARAAAAAAAAAAAAAEEARARATEAEA AERA eRARKeeeKekeeAhe 


+ 


ABSTRACT: 
Mnemonics for forcing letters into appropriate case. 


ENVIRONMENT: Transportable BLISS 
AUTHOR: Rich Friday 
CREATION DATE: 1978 

MODIFIED BY: 


SESESSEES 


DDDDD DDD DDD DDADADDAADADDADADADADABDADAAAAA VIDA VD WVM WV wOM WMV VW wWwTwVwWVwVAwWAzAD 
FULPUDVDVIV IUPUI IUSPUPUDIVIVSIUSUSIUIUIUSUSUSVIVST SUSU SIOSIS 


0 tee 
! FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 


91 
36 002 KAD00002 Keith Dawson 07-Mar-1983 
9 Global edit of all modules. Updated module names, idents, 
I copyright dates. Changed require files to BLISS library. 
2 
39 
eS LITERAL 
force_lower = -1, ‘Force letters to lower case. 
400 leave_case = 9. ‘Leave letters in same case as input. 
R5401 force_upper = “ ‘Force letters to upper case. 
R54 g first_caps = M ‘First letter of each word to a PRE case, the rest to 
R54 ‘case implied by -UPPER/ .LOWER # 
tr $ one_cap = 33 iFirst letter of first word to upper case, the rest to lower. 
Re LITERAL 
R54 setcase_low = -1, ‘Lowest numbered translation rule. 


Fil 
TOCH 


PRECS == FLIP/RUNOFF record formats 
L == HL indicator record 


setcase_high= 3; 


be 


'Highest numbered translation rule. 
End of SETCAS.REQ 


Sep-1 
Sep-1 


Be 92:56:38 


VS558 


1 res 
$DUA28 


s-32 V4.0-7 187 
: CRUNOFF . she SETCAS.REQ;1 _ (1) 


5411 


0 


TOCHL == HL indicator recor 
REQUIRE ‘REQ: TOCRTY.REQ'; 


FL IORECS == FLIP/RUNOFF fecere formats 


HS-Beoctgpe 25:07:49 vase} 


TOC record type definitions (MAJ_ & MIN.) 


1 Bits 
$DUA28 


sraCul 4,0-74 
S ERUND FF.SRC 


Gosriie.rea;1°%* (98 


ULV IUSVIUSUSUSUSUSUSUSUSUSUSIS ISIS SSIS ISIS 


DDDDDDDDDDDADAADABAAAADDADANAAAAD 
Sek et et et et et at ae et at ae Be Oe Ue Ue Ue Ue ee ee ee 


vw 
Pa 


val al ah 4h dh th-4h db-de 


BRP ESE 
PPA 


VIS Seo Ru 


Wy 


SOSSOOOOOOSOOCOOC OOOO OOOOSOSOOSSSOOSO COSCO SOOOOOOOCOOOOOOOOOOOCOOO 


FLIPRECS == FLIP/RUNOFF record formats 1$-5¢ Sep-1984 1 Bliss-32 v4. 
TOCHL == HL indicator record g007 1382 $3: 97 $8 g burke sh 
! 

Version: "v04-000' 


leunteueenatenenecenetenenentenenerenterererterterteetrnerentnetenetnetnetts 
'® 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

't DIGITAL at AM _GORPORATION, MAYNARD, MASSACHUSETTS. 
'* ALL RIGHTS RESER 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH TH RMS OF SUCH LICENSE AND WITK THE 
:® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


't TRANSFERRED. 


i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i. onePOkation. " NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


2aeeeneeeeneeennneenenenenannnen 


SRR RRA ARERR AEA 
' 


e+ 


FACIL'TY: DSR (Digital Standard RUNOFF) / DSRPLUS 


ABSTRACT 
Literals oY the record types found in a .BTC or .BRN file. Each 
record is preceeded two words, containing the major record type 
and the minor record type. 


ENVIRONMENT: Transportable BLISS 


i 

i 

i 

i 

i 

i 

i 

AUTHOR: Keith Dawson 

CREATION DATE: May 1982 

MODIFIED BY: 

i 007 KAD00007 Keith Dawson 07-Mar-1983 

Global edit of all modules. Updated module names, idents, 

e copyright dates. Changed require files to BLISS library. 

ie 

LITERA ‘Major record 
ma} _new_toc = 1, ‘New TOC start np *tat start 9 each file) 
ma}_runoff = ¢° ‘Record is somet ing automatically output by DSR 
maj_send = 3, ‘Record is something specified by N 
maj_send_contents = 4; 'Record is something specified 4 “SEND CONTENTS 


: The following minor record types apply when the major record type is MAJ_RUNOFF. 


Vep5sSpuAzE: 3: CRUNOFF . she TOCRTY.REQ;1 


Page 


~~ 
—o 
~o 


DDDDDDADDADADADADADADADADAAAD 
oo COO O909 SIN NINN INN NIOS 


SUSU SUSU SUSI SISISISIIIIIVIST 


F abd ee ee ee eee ee 


SOOSOSOCOOOSOOSOCOOSOOSOOOSSOSSSOSOOCOCOOOOOOOOOOCOOOOOOOOOOOOOO 


DDDDDDDDDABDADBDAAADAAD 
PUPP PUTS AAA III 
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F 
TOCHL == HL indicator record 
LITERAL 


—_ 

ow 

= 

oe 
nnunnun 
MEWN—O 
esse ee 


7 


min hl txt_u = 


min_examp_inf = 
min_examp_txt = 
min_examp_txt_u = 


min _figur_inf = 
min_figur_txt = 
min_figur_txt_u = 


min_table_inf = 
min_table_txt = 
min_table_txt_u = 


—— tees es CC OOO OO 
UW AIO «+ « 2 


min_chapt_inf = 
min_chapt_txt = 


No 
>. ¢ 


% 
CJTOCRTY.REQ;1 


‘Header level information 
'Page number 

‘Header level text 
'Chapter t (B 
‘Appendix t 
'Start the index. 


‘Header level text, unnumbered 


le (BTC files only) 


‘Example information 
‘Example caption text, numbered 
‘Example caption text, unnumbered 


° ‘Figure information 
‘ 'Figure caption text, numbered 
° 'Figure caption text, unnumbered 


° 'Table information 
, ‘Table caption text, numbered 
7 'Table caption text, unnumbered 


'Chapter information 
‘Chapter caption text, numbered 


min_chapt_txt_u = 18, 'Chapter caption text, unnumbered 


min_append_inf 


19, ‘Appendix information 


min_append_txt z 20, ‘Appendix caption text, numbered 


min_append_txt_u= 21; 


' 
LITERAL 
min_min_type 


‘Appendix caption text, unnumbered 


'The minimum minor record type. 


= 0 
min_max_type = 2{; !The maximum minor record type. 


; SEND CONTENTS record group Literals. 


LITERAL 
ScCON_comm 
scon_txt 
scon_txt_u 


SEND CONTENTS positioning information. 
s7on_exa 
scon_fi 


LITERAL , 
scon_ta & 


scon_lev 
: End of TOCRTY.REQ 


t. 'Send Contents text is a command 
¢: 'Send Contents text is text, numbered 
3 'Send Contents text is text, unnumbered 


'Put Send Contents in main part of CONTENTS 
‘Put Send Contents in Examples portion 
'Put Send Contents in Fi 


'Put Send Contents in Ta 


U 
U 
U 
U 


FLL 

TOC 

XIF DSRPLUS % 
REQUIRE ‘REQ: 
REQUIRE 'REQ: 
REQUIRE "REQ: 


REQUIRE ‘REQ: 


PRECS == FLIP/RUNOFF record formats 
HL == HL indicator record 


TPROB.REQ'; 


12 
13-Sep-1984 33:80 ieg | StF BAseStaGwbee sacSoseiie.rea;1°%° 13) 


TN_... opcodes and status values for TNFIL 
TNREC_... items (for topnote record headers) 
Topnofe controi table 


Completion codes returned by TPROBE routine 


dS 


FL 
TOC 
: 
; 


} Version: *v04-000' 


See RRR AEE EEE RARER EAA A EERE AERA AEE ETAT AERA ATE AAA AAAARK ARES 


; ® 

. 

; OR 

; 

; OUR '@ w 
; RS '‘® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
3; UR '* DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. * 
3 Ree is ALL RIGHTS RESERVED. * 
° H e 
; Ree 8 '® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
; R5539 '® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
: Reett 'w INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
: R5541 ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 RD 24¢ ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; Rd943 0 ie TRANSFERRED. * 
; Ie e 
; R5545 0 '® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; R5546 8 '® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; toh 4 :* CORPORATION. * 
3 i ® 
; R5549 0 'w DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
Hy Reeey 8 * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
3 fe @ 
3 Ro e86 0 '® * 
; R555 0 VeRO A AEA AERA AAR EEA 
3 R5554 0 ! 

; R5555 0 

; R5556 0 144 

: Reeet 4 FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

3; R5559 O ' ABSTRACT: 

3 R3260 8 Condition codes returned by the routine TPROBE in its binary search. 
: R2206 0 ! ENVIRONMENT: Transportable BLISS 

; R55635 0 ! 

; R5564 0 ! AUTHOR: Rich Friday 

; R5565 0 ! 

3; R5566 0 ! CREATION DATE: 1978 

; R5567 O ! 

; R5568 0 ! MODIFIED BY: 

: R5569 O ! 

; k5570 O ! 002 KAD00002 Keith Dawson 07-Mar-1983 

3; R5571 O : Global edit of all modules. Updated module names, idents, 

3 R2376 0 copyright dates. Changed require files to BLISS library. 

Py 2 - 

3 R574 leo 

3; = 6R5575 

: Ree78 LITERAL 

3; R557 give up = 0, ! Keyvord cannot possibly be in List. 

; =R5578 ound = 1, ! This entry is the one you want. 

3; R5579 try_above = §: ' Keyword has to be above this entry. 

3 RSs try_below = 5; ! Keyword has to be below this entry. 

; R5582 0 4 End of TPROB.REQ 


13 
PRECS == FLIP/RUNOFF record formats 13-5¢ -1984 07:4 VAX-11 Bliss-32 V4.0-74 P 19 
HL == HL indicator record 1 730071382 33 8rig $25 $DUA28: CRUNOFF . SRC TPROB.REQ;1 eet (35 


eee -_-- —-Yy 


dS 


FLIPRECS == FLIP/RUNOFF record formats 18-50 Sep-1 7:4 1 Bliss-32 V4.0-7 e 193 
TOCHL == HL indicator record 300-138 $3: 95 ‘3 VES SSDUA2E; 8: CRUNOFE. she DSRLIB.REQ;1 — (2) 
; 5583 0 REQUIRE ‘REQ: TSF.REQ'; ! TSF (Text so far) macro definitions 


dS 


Th 


DISARM LOOR IRAE 


S33 


GOOCOOOSSOSOSSOSSSCSSO SOOO OOCOCOOCOOOCOOOOOOOOOO 


FLI 

TOCHL == HL indicator record -Sep-1 ays te DBAS CRUNOFF sre TSF .REQ;1 
! 

' 


| Version: "v04-000' 


MARAE AE LATICES TICE TTT TTT TT TT TTT Terr c cic rir ici rir titi titi titi ii itiiiiiiit 


is COPYRIGHT (c) 1978 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


1980, 1982, 1984 B 


% 
ey 
* 
oa 
' * 
fe as ite i FURNISHED UNDER A LICENSE AND MAY BE USED AND gt Le * 
'® ONLY IN ACCORDANCE WITH THE ae OF SUCH Tints AND WITH THE * 
tt INCLUSION OF THE ABOVE gle, OTICE. THIS SOFTWARE OR ANY OTHER * 
's COPIES THEREOF MAY NOT BE PROV VIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS WEREBY * 
'® TRANSFERRED, * 
' ® 
!* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
't AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
‘® CORPORATION. « 

te 

* 

* 

t 

® 

* 


i DIGITAL_ASSUMES NO RESPONSIBIL!TY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


ASSESSES ESSE ETT TTS TTT TTT Terr rece cece cece cee cit iit iti tic itit iii iiici ai it 
' 


++ 

FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

ABSTRACT: 
Definitions defining TSF (text so far). The information describes 
what is to happen to the Line being built up. 


ENVIRONMENT: Transportable BLISS 


AUTHOR: Rich Friday 
CREATION DATE: 1978 
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; R5623 ! 

: 4 ? 2 MODIFIED BY: 

: R56 § i 007 FA00007 Ken Alden 30-Jun-1983 

: : ° 3 Added TSF _CREF_COUNT. 

: R5629 i 006 REM00006 Ray Marshall = 1=June-1983 

; R 6 9 Added TSF_CREF_DATA. 

; Ree § 8 i 005 KAD00005 Keith Dawson 07-Mar-1983 

; «R56 ‘ Global edit of all modules. Updated module names, idents, 

. R20 : 8 copyright dates. Changed require files to BLISS library. 

: R5636 0 ine 
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TOEML <= ML indicetor recora) ores ti Sep-1986 S2:54:48 — VSSSSEDUASBSCRONOFF SRCSTSF REQ: 1 
MACRO 
tsf_int_hl tsf CO]. !Number of characters, internal representation. 
tsf_ext_hl tsf C1] !Resulting number of print positions, external. 
tsf_nbits tsf C2]  !Notes about underlining, etc. 
tsf_footw tsf C3] !The number of footnotes attached to this Line. 
tsf_seqn_flag tsf [4]  !TRUE if ISEQN is an SOS style Line number. 
tsf_index tsf (5) !TRUE if this belongs in the index. 
tsf_int_vl tsf [6] !Number of characters representing carriage control. 
tsf_bar_char tsf [7] !The character to be used as the change bar. 
tsf_ us_cnt tsf [8] ‘!Number of justification marks. 
tsf_justify tsf (9] !True if the Line is to be justified. 
tsf_adjust tsf C10] !Move text this number of positions right. 
tsf_btc tsf C11] !TRUE if this goes to the .BIC file. 
tst draft flag tsf [12] !The draft flag for this Line. 
tsf_lines tsf C13] !I1f this record is part of a footnote, the number of Lines it generates. 
tsft_first_xtn tsf C14] !First transaction number associated with this text. 
tsf_major tsf C14] !If TSF_BTC is true, the major record type. 
tsf_last_xtn tsf C15] !Last transaction number associated with this text. 
tsf_minor tsf C15] !1f TSF_BIC is true, the minor record type. 
tsf_ adding tsf (16) ‘!Number of spaces needed to justify Line. 
tst_iseq tsf C17] !TRUE if the input sequence number is wanted. 
tsf_iseqn tsf (18] !The input sequence number for this Line. 
tsf_ipagen tsf (19) !The input page number for this Line. 
tst_filespec tsf C20] !A CHSPTR to the file-spec. 
tsf_oseq tsf (21) !TRUE if the output sequence number is wanted. 
tsf_oseqn tsf C22] !The output Line number for this Line 
tsf_bold_depth tsf (23) !Number of times bolded characters should be overstruck. Zero is 
z. ‘equivalent to no bolding. 
tsf_text tsf C24] !True, if TSF contains some text. 
tsf_just_alg tsf C25] !Justification algorithm to be used on this Line. 
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> R5694 i, ; 
3 a : 5 tsf_xyplus = tsf (26) !True if this Line is an XPLUS/YPLUS indexing command. : 
: mR 69 tsf_cref_data = tsf [27] ! Pointer to inked List of CREF BRN records. : 
; = 639 tsf_cref_count = (tsf (28])<0,8>  ‘!Number of pending crefs. ; 
: R , 1 } tsf_freecell = tsf [29] !Free cell : 
; Ro? 5 + tsf_free_cell = tsf [30] !Free cell : 
; iy 5 "" tsf_aux bits = tsf [31] !Do specified special functions. : 
; mayer tsf_h_bars = (tsf (32])<BAR__> !TRUE if change bars apply to the items described by TSF_xxx_HL. : 
: arth tsf_aux_aloc = tsf (33) !How TSF_AUX_SPAC is allocated. : 
; mee tsf_next_reg = tsf (34) !Indicates next free ‘‘pseudo-register."' ; 
; msi 0 tsf__phregs = tsf (35) !Five ‘‘pseudo-registers’. : 
; 5715 LITERAL é 
3 marie tsf_nregs = 5; ‘Number of ‘'pseudo-registers'’ available. : 
; R718 0 LITERAL ; 
; =R5719 8 tsf_size = 40; 'Total size of TSF. : 
; k5720 : 
3 _R5721 0 MACRO ; 
; mR57 : 0 tsf_bld = (TSF_NBITS)<BLD__> ; 
; «R57 0 z, 3 
; R5724 0 : 
3 MR5725 8 tsf_und = (TSF _NBITS)<UND__> : 
; m3! § : ‘ 
> MR5728 : tsf_ovr = (1SF_NBITS)<OVR__> F 
; R5729 %; : 
; «R57 3 
3; _R5731 MACRO : 
3 met § 0 est pers = (TSF_AUX_BITS)<BAR__> !True if change bars apply to the items described by TSF_xxx_VL. : 
i Rapes ‘ F 
; R5735 0 MACRO : 
3 R57 tsf_definition = : 
: Re! REF VECTOR Ctsf_sizeJ%; : 
; R5739 0! End of TSF.REQ 3 
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; 5740 0 REQUIRE ‘REQ:VR.REQ'; ! VR_... & VR*_DEF for .VR and conditionals 
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} Version: *v04-000' 


lsuneeeeeeeeerentennenenteneennetnenerererenererteetrentinertnnenenenenennnts 
'e 

'* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
tt ALL RIGHTS RESERVED. 


*« 
* 
* 
® 
4 ® 
:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
'* ONLY IN ACCORDANCE WITH THE TERMS O LICENSE AND WITH THE * 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
tt TRANSFERRED. ® 
4 ® 
:# THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:# AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
't CORPORATION. * 

® 

* 

® 

® 

® 

® 


it DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
't SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

is 
VRE RARER AAA 
' 


'e+ 
FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 


! ABSTRACT: 

Tables and definitions used for .VARIABLE, .IF, .IFNOT, .ELSE, and 
-ENDIF. The tables all contain space for an extra entry, so that various 
other pieces of code need not continually check te see if 

entry in the tables. 


ENVIRONMENT: Transportable BLISS 


there is an 


! AUTHOR: Rich Friday 
CREATION DATE: 1978 
MODIFIED BY: 
002 KAD00002 Keith Dawson 07-Mar-1983 


Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 
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LITERAL 
vr_table_count = 5, ‘Number of tables that are vectors. 
vr_tab_size = 'Total BPVALs needed to save this information. 
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'Space for tables that are vectors. 
(max_vr_nanes + 1) * (vr_table_count) 
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TOCHL -- HL indicator record 1 =30 71 3Re 33:07 4 VE OSSSDUASRSLRONOFE SRC VR.REQ;1 . (1) 
'Space for names 
(max_vr_names + 1) ®* CHSALLOCATION (max_vr_length); 
MACRO 
wets def = 
. VECTOR Cmax_vr_names + 1) ! TRUE flag. 
wre def = 
. VECTOR Cmax_vr_names + 1) ! FALSE flags. 
vrbool_def = 
VECTOR Cmax_vr_names + 1) ! TRUE/FALSE setting. 
vrsrc_def = 
VECTOR Cmax_vr_names + 1] ! How variable got defined. 
’ ! 0 means /VARIANT, 1 means .VARIABLE. 
ae def = 
ECTOR Cmax_vr_names + 1) ! Lengths of variable names. 
vrname ! The variable names. 


def = 
BLOCKVECTOR Cmax_vr_names + 1 
ech$allocation Tmax_vr_length)] 


' End of VR.REQ 
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'! REQUIRE ‘REQ:XTNTAB.REQ'; ! In=core index table & entry definitions 
! End of DSRLIB.REQ 


Library Statistics 


mean w= Syabol§ ococeooe Pages Processing 
File Total Loaded Percent Mapped Time 
~$255S0UA28: CSYSLIBIXPORT.L32;1 590 41 6 252 00:00. 
“Fea a OUASB ;ERUNOFE SRCTRNDDEEDSR.L32s1 ie . inne 


COMMAND QUALIFIERS 


BLISS/LIBRARY=SRC$:/LIST=LIS$: SRC$:DSRLIB.REQ 


Run Time: 


01:17. 
Elapsed Time: 01:46.7 


Lines/CPU Mi 


4520 


5 
Lexemes/CPU-Min: 67306 


Memory Used: 
Library Prec 


284 pages 
ompilation Complete 
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